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Correo 


COLABORACIONES 

El programa que envío como cola¬ 
boración permite crear un propio 
test para la opción B del programa 
llamado "Examinador". 

Es de fácil manejo y de ser pu¬ 
blicado ayudará a cientos de estu¬ 
diantes. 


10 DIM A$(9000), R$(300): C = O 
15 POKE 764, 255: C = C + 1 
17 GRAPHICS O 

20 ? "Ingresa Respuesta INPUT 
R$: ? 

30 R$(LEN(R$) +1, LEIM(R$) +1) 
= CHR${155) 

40 A$(LEN(A$) +1) = R$ 

50 ? "Ingresa pregunta " : INPUT R$ 
60 R$(LEN(R$) +1. LEN(R$) + 1) 
= CHR$(155) 

70 A$(LEN(A$) + 1) = R$ 

80IFC 25THEN15 

99 GRAPHICS 0 

100 ? "Grabando 


110 OPEN=#1. 8.0. "C:" : POKE 
559,0 

120 7=ftl; A$ : CLOSE#1 


125 GRAPHICS 0 
130 ? "Listo": ? 
140 END 


En la línea 80 se puede modificar 
el valor 25, según el número de pre¬ 
guntas a responder en el test. 

Al aparecer el mensaje "Graban¬ 
do" se debe conectar la casetera y 
grabar en un casete virgen. 

Como prueba cargue el programa 
El Examinador y al aparecer la letra 
B de definiciones rebobine la cinta en 


que se encuentra el test creado y 
proceda a cargarlo. 

Eso es todo, que les vaya bien. 

Andrés Gutiérrez C. 
Av. San Martín 451, Temuco 


Envío adjunto una colaboración que 
encuentro interesante y apta para ex¬ 
perimentación. 

El programa es un graficador de 
terrenos, que diseñé después de ver 
un programa similar en otro compu¬ 
tador. Mi versión es más concentrada 
y bastante distinta a la mencionada. 

Espero que le sea útil a otro lec¬ 
tor de MUNDOATARI. 

Jorge Flores Z. 

Membrillar 93. Rancagua 


□ Felicitaciones a nuestros amigos 
colaboradores. 

El premio para ellos es de $ 1000 
en software a elección. 


Adjunto encontrará usted un casete 
con un programa creado por el sus¬ 
crito en compañía de otro atarista, 
Sr. Juan Leiva. 

El programa se llama: "El Buzo" 
y se trata de un personaje que debe 
recoger tesoros submarinos. Para 
ello debe seleccionar armas y herra¬ 
mientas apropiadas, tanto para su 
trabajo como para defenderse de 
pulpos y tiburones que están al ace¬ 
cho. 


Esta es una colaboración para 
nuestra revista que tanta utilidad 
nos presta en cuanto a capacita¬ 
ción computacional. 

Eric Ross C. 

Angamos 0484, Antofagasta 


□ Agradecemos su aporte y le 
asignamos un premio en soft¬ 
ware de nuestro Catálogo por la 
suma de $ 2.000. En este número 
estamos publicando su programa 
en la sección Tipiando. 


* 


SUGERENCIAS 

Agradezco la publicación de mi pro¬ 
grama "Equilibrio" en la revista 
MUNDOATARI 20. 

Como premio me gustaría recibir 
los programas Turbo BASIC, Koala 
y Vaciador de pantalla, todos ellos 
en versión de casete. 

Próximamente enviaré otros 2 
programas en gratitud a ese gesto. 

Uso regularmente el Procesador 
de Textos para mis trabajos e infor¬ 
mes. Incluso he podido escribir una 
tesis gracias al ATARI. 

Tengo una impresora Seikosha 
GP-550 con 18 que no puedo escribir 
el acento y la letra N. Agradecería 
mucho si me dieran algunas indica¬ 
ciones para obtenerlas. 

En TEMUCO existe una gran can¬ 
tidad de usuarios ATARI, pero falta 
un local comenrcial que comercia¬ 
lice esta línea , tanto en hardware 
como en software. La compra debe 
hacerse directamente a Santiago, trá¬ 
mite largo, tedioso y limitado. 

Sería igualmente beneficioso el 
tener un centro de consultas y de 
intercambio o capacitación. 

Mi última duda es si mi compu¬ 
tador de 64 Kb tiene la posibilidad 
de expandir su memoria a 128 Kb 
y cuánto costaría dicha expansión. 

Mario Villarroel G. 

San Francisco 0973 
Temuco 


□ La expansión está siendo probada 
en uno de nuestros computadores 
y estárá disponible a fines de marzo. 
Escríbanos para convenir precios, 
con un descuento especial para usted. 

M.A. 
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He decidido iniciar a mi hijo de 11 
años en los misterios de la computa¬ 
ción, para lo cual he adquirido un 
equipo 130 ?<E con casetera, joystick 
y algunos juegos. 

Usted entenderá que mi interés va 
más allá de los juegos. Solicito infor¬ 
mación respecto a programas educa¬ 
tivos del área de matemáticas e inglés. 

He comprado algunos ejemplares 
de MUNDOATARI durante 1988, pe¬ 
ro veo que las materias tratadas en 
él las son muy avanzadas para lo que 
savbemos. Será conveniente conseguir 
la revista a partir de la número 1. 
¿Cuál es su valor? 

Larry Henríquez V. 

C. Madroña 2566, Frutillares 
Tomé 


□ Todos los números de MUNDO- 
ATAR I están disponibles. El valor 
de la suscripción por 12 números es 
de $ 2.400 y por 24 es de $ 4.800. 

En el Catálogo de ¡a revista 
encontrará la respuesta a sus dudas 
de software. 

M.A. 

* 

MUNDOATARI EN 
PANAMA 


Por medio de un artículo de ANTIC 
nos hemos enterado de su existencia 
y de la gran cantidad de equipos 
ATARI en su país. 

El PCACUG (grupo de usuarios 
ATARI) fue fundado hace 8 años en 
la zona del Canal de Panamá por 
un grupo de ciudadanos norteameri¬ 
canos radicados en esta zona. Du¬ 


rante este tiempo nos hemos incorpo¬ 
rado más y más panameños hasta 
conformar la mayoría. 

El suscrito es Presidente del 
PCACUG, el cual edita mensualmente 
la revista PanATARI'News. edición 
bilingüe que revisa temas de interés, 
si los artículos lo permiten. Adjunto 
un ejemplar del periódico y una hoja 
de suscripción. 

Si ustedes lo desean podemos co¬ 
menzar un intercambio si ustedes 
nos envían a su vez su revista. 

Sabemos que el ATARI de 8 bits 
es una máquina poderosa que cumple 
importantes funciones para un hogar. 
Por ejemplo nuestra revista es confec¬ 
cionada en su totalidad con Daisy- 
Dot II y Textpro 3.2, más Printer 
Partner, Todos estos programas son 
de dominio público que se encuen¬ 
tran en nuestra librería. 

También preparamos un disco 
del mes que se vende en $ 2.00. 

No tenemos software en español 
ya que la mayoría de las personas 
hablan inglés en este lugar. Estamos 
interesados en conseguir direcciones 
de compañías chilenas que produzcan 
software para ATARI. 

Gracias por su atención, disfruten 
este PanATARI’News y sigan com¬ 
putando. 

Carlos Hassan 
6-401 El Dorado 
Panamá, República de Panamá 

□ Mandamos algunos ejemplares de 

MUNDOATARI como obsequio 
para establecer el inicio de un futu¬ 
ro intercambio. 

Gracias por su carta. 

M.A. 



CONSULTAS 

Agradezco su gentileza por enviarme 
el software que requería. Esta vez 
me dirijo nuevamente a ustedes para 
solicitar un nuevo pedido que deta¬ 
llo en hoja aparte. 

Estoy interesado también en la 
suscripción a MUNDOATARI, para 
lo cual agradeceré mayor informa¬ 
ción. 

Dr. Alvaro Malky 
Casilla 2618, La Paz 
Bolivia 


□ El valor de la suscripción por 12 
números es de US $ 36. 

Se envía revista número 19, que 
responde a sus dudas. 

M.A. 


Envío orden de pedido debidamente 
documentada. Posteriormente enviaré 
cupón de suscripción anual. 

¿Cómo puedo colaborar con al¬ 
gunos programas que he diseñado, 
los que pienso pueden ser de interés 
para los lectores de MUNDOATARI? 

Rogelio Grandjean 
Oscar Bel mar 044, Villa Empart 
Arica 


□ La forma de enviar colaboraciones 
es a través de nuestra casilla postal 
No. 458. Correo Ñuñoa, Santiago 

M.A. 


Solicito información detallada y pre¬ 
cios de equipos Beltron publicitados 
en su revista. 

Marcos González 
Carrera 406, Of. 8 
Chillan 


□ El Beltron llegará con una nueva 
configuración de 640 Kb, con una 
velocidad hasta 12 Mhz. 

El valor es de US $1.050 con IVA 
incluido. Hay condiciones de crédito 
que se ofrecen en este número (ver 
aviso de promoción. 

M.A. 
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Editorial 


E STIMADOS amigos de MUNDOATARI, este mes de marzo 
continúa con la estrategia definida en números anteriores y 
proporciona un bloque amplio de información exclusiva acerca 
de los diferentes modos gráficos disponibles en su computador ATARI. 

Una novedad interesante de MUNDOATARI la constituye el nuevo 
Sistema Operativo DOS XE 1.0, dirigido especialmente para los lectores 
que poseen en su configuración una unidad de disco XF-551. 

La columna Directo al 6502 proporciona un interesante programa 
Microassembler en BASIC, el que abre interesantes posibilidades para 
quienes ven en esta materia un medio de continuar avanzando en la 
programación en lenguaje de máquina. 

En la sección de Utilitarios continuamos con la descripción del 
programa First XLENT, interesante alternativa para lectores que desean 
aplicar su computador en el procesamiento de textos. Para números 
futuros se contempla incluir la descripción de otros novedosos y 
exclusivos programas de utilidad general. 

En relación a equipos estamos continuando con interesantes ofertas 
como por ejemplo la rebaja en todos los productos que integran nuestro 
Catálogo de Compras. 

Deseamos un feliz inicio de actividades escolares a todos los lectores 
que retornan de un relajado período de vacaciones. 


Su editor 
Iván Gjurovic 


Editor lv¿n Gjurovic M. 

Director: Adolfo Tomajón S. 
Representante 1*9*1: Lucía Sagura G. 
Producción: SES SI*tama 
Diaafto publicitario: Ricardo Numi 
Casilla: 458 11, Ñuftoa, Santiago 
Teléfono: 2320557 


Esta ravista no mantlana ralaclón 


MUND@ATARÍ 


da dapandancla da ningún tipo 
con raspacto a lo* fabrlcanta* 
da mlcrocomputadora* ATARI 
ni sus raprasantantas. 


MARZO 1989_Precio $400 

Revista con Información exclusiva 
para mlcrocomputadora* ATARI 


Prohibida la reproducción total 
o parcial da asta revista sin la 
autorización escrita da los editoras. 


El contenido da la publicidad as 
responsabilidad do los avisadoras. 


Impresa por eorrow al antartica 


Resol. Exanta No. 360/6-6-1987 quien actúa sólo como Impresora. 
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MODOS GRAFICOS 


Modos 

Gráficos 

Este mes MUNDO A TA Rl proporciona a sus ami¬ 
gos lectores información específica acerca de otra 
importante carácteritica dei computador A TARI: 
Ias posibilidades gráficas, controladas en su estruc- 
tura interna por un microprocesador llamado 
ANTIC. 

Por esta razón el modelo de 8 bits ha tenido 
una vida tan prolongada y sigue teniendo vigencia 
en el mundo latinoamericano, como recurso eco¬ 
nómico para incorporar la tecnología a los ho¬ 
gares y colegios. 


El ATARI XL proporciona 15 modos gráficos 
con las características indicadas en el esquema si¬ 
guiente: 


Basic 

Antic 

Pañi 

Lfn. 

alia 

Col. 

Comentarios 

0 

2 

24 

40 

Sólo texto,sin ventana 

1 

6 

20 

20 

Texto, con ventana 

2 

7 

10 

20 

Texto, con ventana 

3 

.8 

20 

40 

Gráfico a 4 colores, 
con ventana 

4 

9 

40 

80 

Gráfico, a 2 colores, 
con ventana 

5 

10 

40 

80 

Gráfico, a 4 colores, 
con ventana 

6 

11 

80 

160 

Gráfico, a 2 colores, 
con ventana 

7 

13 

80 

160 

Gráfico, a 4 colores, 
con ventana 

8 

15 

160 

320 

Gráfico, a 2 colores, 
con ventana 

9 

15 

192 

80 

Gráfico, 1 color con 

16 luminosid.ades 

10 

15 

192 

80 

Gráfico, 9 colores 

.11 

15 

192 

80 

Gráfico, registro para 

16 colores 

12 

4 

20 

40 

Texto, color por punto 
de pantalla, con ventana 

13 

5 

10 

40 

Texto, color por punto 
de pantalla, con ventana 

14 

12 

160 

160 

Gráfico, a 3 colores, 
con ventana 

15 

14 

160 

160 

Gráfico, a 4 colores, 
con ventana 
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TUTORIA: continuación 


Al hacer un llamado al modo gráfico y añadir 
en él los números 16, 32 ó 48 se obtiene variacio¬ 
nes en la presentación de la pantalla, como se in¬ 
dica en el siguiente esquema: 


Al digitar: 

borra pantalla 

tiene ventana 

N° modo 

SI 

SI 

N° modo + 16 

SI 

NO 

N° modo + 32 

NO 

SI 

N° modo +48 

NO 

NO 


NOTA: los modos gráficos 9, 10 y 11 no cuentan 
con ventana de texto. 


Los distintos colores para el fondo y el marco 
de la pantalla se obtienen mediante la introduc¬ 
ción de valores en las localizaciones 710 y 712. 

Digite el siguiente programa para comprobar 
lo afirmado: 


REGISTROS DE COLOR 716 Y 712 


18 REM 

15 GRAPHICS 8:P0KE 752,1 
20 P05ITI0X 8,8:? ,"EH1 
25 FOR C=8 T0 255 5TEP 2 
38 PÚKE 710,C:POKE 712,C 
35 P05ITI0* 8,18:? "G",C 
40 FOR T=i T0 180:«EXT T 
45 «EXT C 


Comentario de líneas: 

15 Llamado a modo 0. Elimina cursor. 

25 Inicio de ciclo en el rango de 0 a 255 sólo 
para números pares. 

30 Modifica contenido en localizaciones 710 y 
712. . , _ 

35 En línea 10 imprime valor actual de variable C. 
La flecha en negativo borra la línea previa¬ 
mente. Para obtenerla se debe digitar la se¬ 
cuencia: ESC/SHFT/DEL. 

40 Ciclo de demora. Puede ser modificado para 
hacerlo más lento. 


* 


MODO GRAFICO 0 

Este es el modo más usado para editar en 
pantalla un texto. Es también el modo de partida 
del computador cuando el BASIC está incorpora¬ 
do. Sus características se aplican a los modos mix¬ 
tos que cuentan con una ventana de texto. 

Al presionar la tecla SYSTEM RESET se ini- 
cializa el ATARI a este modo. 

La pantalla de modo 0 está organizada en 
forma de columnas y líneas, para proporcionar 
una equivalencia de coordenadas horizontales 
y verticales. 

La siguiente figura ilustra las características 
de este modo gráfico: 


PANTALLA MODO 0 


columnas 


04 

1- 

2 

3 

4- 

5- 
6 

7 

8 
9 

10 

11 

12 - 

13- 

14- 

15- 


n i ? 3 4 5 6 7 8 9 101112131415161718192021222324252627282930313233343536373839 
i i i i i i i i i i i i ' i i i i i l l * l 1 L 1 1 *■ 1 1 L 1 1 i i i 


16- 

17- 

18- 

19- 

20 - 

21 - 

22 - 
23- 
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TUTORIA: continuación 


Organización de registros de color 

El siguiente esquema ilustra la organización 
de los 5 registros de color para el modo gráfico 0, 
que es también válida para los modos mixtos con 
ventana de texto: 


Registro 0 (loe. 708) 

Sin uso 

Registro 1 (loe. 709) 

Luminosidad de texto 

Registro 2 (loe. 710) 

Color de fondo y texto 

Registro 3 (loe. 711) 

Sin uso 

Registro 4 (loe. 712) 

Color de marco 


El registro 1 controla la luminosidad de los 
caracteres de texto, el registro 2 maneja el color 
de fondo de la pantalla, el registro 4 determina 
el color del marco de la pantalla. 

La forma de modificar los registros de color 
puede ser manejada de 2 maneras: 

1. El comando SETCOLOR se refiere directa¬ 
mente a los números de registros mencio¬ 
nados, según el formato: 

SETCOLOR num, color, luminosidad 

2. La instrucción POKE activa directamente 
la localización específica, según el formato: 

POKE localización, 16 * color + luminosidad 


Localizaciones importantes: 

El siguiente esquema presenta una síntesis 
de las localizaciones más relevantes para el ma¬ 
nejo del cursor y de los márgenes: 


Localización 

Propósito 

82 

Columna del margen izquierdo 

83 

Columna del margen derecho 

84 

Línea actual del cursor 

85/86 

Columna actual del cursor 

90 

Línea actual del cursor gráfico 

91/92 

Columna actual del cursor gráfico 

96 

Línea de destino del cursor gráfico 

97/98 

Columna de destino del cursor gráf. 

656 

Línea actual del cursor en la venta¬ 
na de texto 

657/658 

Columna actual del cursor en la 
ventana de texto 

752 

Presencia del cursor (0: si, 1: no) 


Uso del comando POSITION 

El uso del comando POSITION se hace de 
acuerdo al formato siguiente: 


POSITION columna, línea 

El se refiere a la localización del cursor se¬ 
gún el esquema de coordenadas visto anterior¬ 
mente. 

POSITION es la manera más común de 
ubicar textos dentro de la pantalla. Digite el 
próximo ejemplo demostrativo: 


POSITION 


10 GRAPHICS 8 
15 POKE 752,1 

.20 COLOR 124:PLOT 19,7:DRAWT0 19,14 
25 POSITION 17,5:? "NORTE" 

30 POSITION 18,16:? "SUR" 

35 POSITION 9,10!? "OESTE -1— E5 

TE" 

40 GOTO 40 


Comentario de líneas: 

20 COLOR 124 es la representación de la línea 
vertical. Se aplica según lo analizado en el 
texto más abajo. 


25-35 Aplicaciones de texto en las coordenadas 



Técnicas alternativas: 

Los comandos PLOT y DRAWTO se refie¬ 
ren corrientemente a modos gráficos. Sin em¬ 
bargo es posible aplicarlos en los modos de texto 
combinándolas con el valor presente en el coman¬ 
do COLOR. 

Digite la siguiente línea: 

GRAPHICS 0: COLOR 65: PLOT 10. 5 

Al ejecutar veremos una letra A mayúscula 
ubicada en la columna 10 y línea 5. 

Con imaginación se puede igualmente crear 
efectos especiales de texto. 

Digite el próximo ejemplo: 

GR. 0: COLOR 97: PLOT 0, 0: DRAWTO 39,20 
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TUTORIA: continuación 


El modo 0 en memoria RAM: 

Es útil conocer la ubicación de la pantalla 
en memoria para efecto de manejar los valores 


mediante los comandos PEEK y POKE. 

El siguiente esquema indica las localizaciones 
correspondientes: 


o 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 


40000- 
40040- 
40080- 
40120- 
40160- 
40200- 
40240- 
40280 - 
40320- 
40360- 
40400- 
40440- 
40480 - 
40520- 
40560- 


40600- 
40640- 
40680- 
40720- 
40760- 
40800- 
40840- 
40880n 
40920H 


PANTALLA O EN RAM 


40039 

40079 

40119 

40159 

[-40199 

-40239 

40279 

40319 

40359 

40399 

-40439 

-40479 

-40519 

-40559 

- 40599 
-40639 
-40679 
-40719 

- 40759 
-40799 
-40839 
-40879 
-40919 
-40959 


MODOS GRAFICOS 1 Y 2 

Se trata en ambos casos de modos de texto 
expandido. 

El modo 1 es el doble más ancho que el modo 
0. El modo 2 es el doble más ancho y más alto que 
el modo 0. 

Ambos modos cuentan con una ventana de 
texto en la parte inferior de la pantalla. 


Organización de registros de color: 

El esquema siguiente sintetiza el uso de los 
5 registros de color usados por los modos 1 y 2: 


Registro 0 (loe. 708) 
Registro 1 (loe. 709) 
Registro 2 (loe. 710) 
Registro 3 (loe. 711) 
Registro 4 (loe. 712) 


Mayúsculas, números y 
símbolos 

Minúsculas y caracteres 
gráficos 

Video inverso que regis¬ 
tro 0 

Video inverso que regis¬ 
tro 1 

Color de fondo 


Los colores correspondientes pueden ser mo¬ 
dificados mediante el uso de los comandos POKE 
o bien SETCOLOR, según lo ya visto. 


Acceso al set de caracteres de modos 1 
y 2: 

No es posible accesar la totalidad del set de 
caracteres en estos modos. 

Al digitar: 

POKE 756, 224 

se accesa los caracteres de código interno 0 a 63, 
lo que incluye números, signos y mayúsculas. 
Al digitar: 


POKE 756, 226 

se accesa los caracteres de código interno 64 a 
127, que incluye caracteres gráficos y minúsculas. 



c ^ 
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Iínaas _ líneas 


TUTORIA: continuación 


Formatos de modos 1 y 2 : 

Las siguientes figuras ¡lustran las característi¬ 


cas de los modos tratados, desde el punto de vista 
de coordenadas horizontales y verticales: 


PANTALLA MODO 1 


columnas 


0 - 
1 - 
2 - 

3- 

4- 

5- 

6 - 

7- 

8 - 
9- 

10 - 
11 - 
12 - 
13- 
14 - 

15- 

16- 

17- 

18- 

19- 

20 - 


21 - 

22 - 

23- 


10 11 12 13 14 15 16- 17 18 19 

1 1_!-. .1., 1 1 I i_L I 


i i i i i i i i i i r“i i i i r 

8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 


Ventana 
de texto 


columnas de texto 


PANTALLA MODO 2 


0 - 


1 - 


2 H 

3 

4 H 


5 - 

6 - 


7 - 


8 - 


9 - 


0 - 
1 - 
2 - 
3 - 


columnas 


r 

10 


T 

12 


T 

14 


10 11 12 13 14 15 16 17 18 19 

.1 ,..L .1 1 I I I 1 I 1 


16 18 20 22 


T 

24 


i r i i r 

26 28 30 32 34 


1 r 

36 38 


Ventana 
de texto 


columnas de texto 


E> 
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TUTORIA: continuación 


Modos 1 y 2 en memoria RAM: 

Los siguientes esquemas se refieren a la ubi¬ 
cación de las pantallas en la memoria RAM. Esto 
facilita el uso de los comandos PEEK y POKE, 
como también rutinas en lenguaje de máquina 
para operaciones de texto: 


PANTALLA 1 EN RAM 


0 

40320 - 

1 

40340 - 

2 

40360 - 

3 

40380 - 

4 

40400 - 

5 

40420 - 

6 

40440 - 

7 

40460 - 

8 

40480 - 

9 

40500 - 

10 

40520 - 

11 

40540 - 

12 

40560 - 

13 

40580 - 

14 

40600 - 

15 

40620 - 

16 

40640 - 

17 

40660 - 

18 

40680 - 

19 

40700 - 

0 

40800 - 

1 

40840 - 

2 

40880 - 

3 

40920 - 


40339 

40359 

-40379 

-40399 

-40419 

-40439 

40459 

-40479 

-40499 

-40519 

-40539 

-40559 

-40579 

-40599 

-40619 

-40639 

-40659 

-40679 

-40699 

-40719 


-40839 

-40879 

-40919 

1-40959 


PANTALLA 2 EN RAM 


40560- 
40580 - 
40600- 


40620- 
40640- 
40660 - 
40680- 
40700- 
40720- 
40740- 


40800 - 
40840 - 
40880- 
40920 - 


40579 

■40599 

-40619 

-40639 

-40659 

-40679 

-40699 

-40719 

-40739 

-40759 


40839 

40879 

40919 

1-40959 


Ventero 
de texto 


Ventan 
de texti 
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TUTORIA: continuación 


MODOS DE 4 COLORES: 3, 5 Y 7 

Estos modos tienen en común la organización 
de los registros de color y los DATA de pantalla. 
Los registros de color son los siguientes: 


Registro N° 

Localización N° 

0 

708 

1 

709 

2 

710 

3 

711 

4 

712 


Estos registros pueden ser modificados igual 
que los modos ya vistos, mediante los comandos 
POKE oSETCOLOR. 


Formatos de modos 3, 5 y 7: 

La ubicación de los modos de 4 colores en 
memoria RAM está indicada en los esquemas 
que siguen: 


PANTALLA 5 EN RAM 


Línea 


Decimal 


inicio 


fin 



Decimal 


inicio 

fin 

24 

40320 

40339 

25 

40340 

40359 

26 

40360 

40379 

27 

40380 

40399 

28 

40400 

40419 

29 

40420 

40439 

30 

40440 

40459 

31 

40460 

40479 

32 

40480 

40499 

33 

40500 

40519 

34 

40520 

40539 

35 

40540 

40559 

36 

40560 

40579 

37 

40580 

40599 

38 

40600 

40619 

39 

40620 

40639 

ventana texto 

0 

40800 

40839 

1 

40840 

40879 

2 

40880 

40919 

3 

40920 

40959 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 


39840 

39860 

39880 

39900 

39920 

39940 

39960 

39980 

40000 

40020 

40040 

'40060 

40080 

40100 

40120 

40140 

40160 

40180 

40200 

40220 

40240 

40260 

40280 

40300 


39859 

39879 

39899 

39919 

39939 

39959 

39979 

39999 

40019 

40039 

40059 

40079 

40099 

40119 

40139 

40159 

40179 

40199 

40219 

40239 

40259 

40279 

40299 

40319 


PANTALLA 3 EN RAM 


4 pixels horizontales por byte 


40560 
40570 
40560 
40590 
4Ü6D0- 
40610 
40620 
40630 
40640 
40650- 
40660- 
40670- 
40680- 
40690- 
40700 - 
40710- 
40720- 
40730- 
40740- 
40750- 


40800- 
40840- 
40880 - 
40920- 


- 40569 
-40579 
-40589 

- 40599 
-40609 
-40619 

- 40629 
-40639 
-40649 
-40659 
-40669 
-40679 
-40689 

- 40699 

- 40709 
-40719 


-40729 
- 40739 
-40749 
-40759 


-40839 
-40879 
-40919 
- 40959 


O 


Ventana 
de texto 
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TUTORIA: continuación 


PANTALLA 7 EN RAM 


Línea 


Decimal 

inicio 

fin 

36960 

36999 

37000 

37039 

37040 

37079 

37080 

37119 

37120 

37159 

37160 

37199 

37200 

37239 

37240 

37279 

37280 

3,7319 . 

37320 

37359 

37360 

37399 

37400 

37439 

37440 

37479 

37480 

37519 

37520 

37559 

37560 

37599 

37600 

37639 

37640 

37679 

37680 

37719 

37720 

37759 

37760 

37799 

37800 

37839 

37840 

37879 

37880 

37919 

37920 

37959 

37960 

37999 

38000 

38039 

38040 

38079 

38080 

38119 

38120 

38159 

38160 

38199 

38200 

38239 

38240 

38279 

38280 

38319 

38320 

38359 

38360 

38399 

38400 

38439 

38440 

38479 

38480 

38519 

38520 

38559 

38560 

38599 

38600 

38639 

38640 

38679 

38680 

38719 



Decimal 


inicio 

fin 

44 

38720 

38759 

45 

38760 

38799 

46 

38800 

38839 

47 

38840 

38879 

48 

38880 

38919 

49 

38920 

38959 

50 

38960 

38999 

51 

39000 

39039 

52 

39040 

39079 

53 

39080 

39119 

54 

39120 

39159 

55 

39160 

39199 

56 

39200 

39239 

57 

39240 

39279 

58 

39280 

39319 

59 

39320 

39359 

60 

39360 

39399 

61 

39400 

39439 

62 

39440 

39479 

63 

39480 

39519 

64 

39520 

39559 

65 

39560 

39599 

66 

39600 

39639 

67 

39640 

39679 

68 

39680 

39719 

69 

39720 

39759 

70 

39760 

39799 

71 

39800 

39839 

72 

39840 

39879 

73 

39880 

39919 

74 

39920 

39959 

75 

39960 

39999 

76 

40000 

40039 

77 

40040 

40079 

78 

40080 

40119 

79 

40120 

40159 

ventana texto 

0 

40800 

40839 

1 

40840 

40879 

2 

40880 

40919 

3 

40920 

40959 


O 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 



MODOS DE 2 COLORES: 4 Y 6 

Estps 2 modos gráficos usan un esquema de 
colores distintos a los ya vistos anteriormente. 
En la práctica no se presentan problemas con 
los colores usados en la (bantalla gráfica y en la 
ventana de texto. 

El COLOR 1 se refiere al registro 0 (locali¬ 
zación 708). 

El COLOR 0 llama al registro 4 (localiza¬ 
ción 712). 

Formatos de modos 4 y 6: 

A continuación se ofrece el detalle de las 
pantallas y su ubicación en memoria RAM: 

PANTALLA 4 EN RAM 


PANTALLA 6 EN RAM 



Decimal 


Decimal 

Línea 

inicio 

fin 


inicio 

fin 

0 

38880 

38899 

44 

39760 

39779 

1 

38900 

38919 

45 

39780 

39799 

2 

38920 

38939 

46 

39800 

39819 

3 

38940 

38959 

47 

39820 

39839 

4 

38960 

38979 

48 

39840 

39859 

5 

38980 

38999 

49 

39860 

39879 

6 

39000 

39019 

50 

39880 

39899 

7 

39020 

39039 

51 

39900 

39919 

8 

39040 

39059 

52 

39920 

39939 

9 

39060 

39079 

53 

39940 

39959 

10 

39080 

39099 

54 

39960 

39979 

11 

39100 

39119 

55 

39980 

39999 

12 

39120 

39139 

56 

40000 

40019 

13 

39140 

39159 

57 

40020 

40039 

14 

39160 

39179 

58 

40040 

40059 

15 

39180 

39199 

59 

40060 

40079 

16 

39200 

39219 

60 

40080 

40099 

17 

39220 

39239 

61 

40100 

40119 

18 

39240 

39259 

62 

40120 

40139 

19 

39260 

39279 

63 

40140 

40159 

20 

39280 

39299 

64 

40160 

40179 

21 

39300 

39319 

65 

40180 

40199 

22 

39320 

39339 

66 

40200 

40219 

23 

39340 

39359 

67 

40220 

40239 

24 

39360 

39379 

68 

40240 

40259 

25 

39380 

39399 

69 

40260 

40279 

26 

39400 

39419 

70 

40280 

40299 

27 

39420 

39439 

71 

40300 

40319 

28 

39440 

39459 

72 

40320 

40339 

29 

39460 

39479 

73 

40340 

40359 

30 

39480 

39499 

74 

40360 

40379 

31 

39500 

39519 

75 

40380 

40399 

32 

39520 

39539 

76 

40400 

40419 

33 

39540 

39559 

77 

40420 

40439 

34 

39560 

39579 

78 

40440 

40459 

35 

39580 

39599 

79 

40460 

40479 

36 

37 

39600 

39620 

39619 

39639 


ventana texto 

38 

39640 

39660 

39659 

39679 

0 

40800 

40839 

40 

39680 

39699 

1 

40840 

40879 

41 

39700 

39719 

2 

40880 

40919 

42 

39720 

39739 

3 

40920 

40959 

43 

39740 

39759 
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TUTORIA: continuación 



Decimal 

Ifnea 

Decimal 

Linda 

inicio 

fin 

inicio 

fin 

0 

40320 

40329 

24 

40560 

40569 

1 

40330 

40339 

25 

40570 

40579 

2 

40340 

40349 

26 

40580 

40589 

3 

40350 

40359 

27 

40590 

40599 

4 

40360 

40369 

28 

40600 

40609 

5 

40370 

40379 

29 

40610 

40619 

6 

40380 

40389 

30 

40620 

40629 

7 

40390 

40399 

31 

40630 

40639 

8 

40400 

40409 

32 

40640 

40649 

9 

40410 

40419 

33 

40650 

40659 

10 

40420 

40429 

34 

40660 

40669 

11 

40430 

40439 

35 

40670 

40679 

12 

40440 

40449 

36 

40680 

40689 

13 

40450 

40459 

37 

40690 

40699 

14 

40460 

40469 

38 

40700 

40709 

15 

40470 

40479 

39 

40710 

40719 







17 

40490 

40499 

ventana texto 













19 

40510 

40519 

0 

40800 

40839 

20 

40520 

40529 

1 

40840 

40879 

21 

40530 

40539 

2 

40880 

40919 

22 

40540 

40549 

3 

40920 

40959 

23 

40550 

40559 





Línea 

Decimal 


Decimal - 

inicio 

fin 


inicio 

fin 

0 

33104 

33143 

42 

34784 

34823 

1 

33144 

33183 

43 

34824 

34863 

2 

33184 

33223 

44 

34864 

34903 

3 

33224 

33263 

45 

34904 

34943 

4 

33264 

33303 

46 

34944 

34983 

5 

33304 

33343 

47 

34984 

35023 

6 

33344 

33383 

48 

35024 

35063 

7 

33384 

33423 

49 

35064 

35103 

8 

33424 

33463 

50 

35104 

35143 

9 

33464 

33503 

51 

35144 

35183 

10 

33504 

33543 

52 

35184 

35223 

11 

33544 

33583 

53 

35224 

35263 

12 

33584 

33623 

54 

35264 

35303 

13 

33624 

33663 

55 

35304 

35343 

14 

33664 

33703 

56 

35344 

35383 

15 

33704 

33743 

57 

35384 

35423 

16 

33744 

33783 

58 

35424 

35463 

17 

33784 

33823 

59 

35464 

35503 

18 

33824 

33863 

60 

35504 

35543 

19 

33864 

33903 

61 

35544 

35583 

20 

33904 

33943 

62 

35584 

35623 

21 

33944 

33983 

63 

35624 

35663 

22 

33984 

34023 

64 

35664 

35703 

23 

34024 

34063 

65 

35704 

35743 

24 

34064 

34103 

66 

35744 

35783 

25 

34104 

34143 

67 

35784 

35823 

26 

34144 

34183 

68 

35824 

35863 

27 

34184 

34223 

69 

35864 

35903 

28 

34224 

34263 

70 

35904 

35943 

29 

34264 

34303 

71 

35944 

35983 

30 

34304 

34343 

72 

35984 

36023 

31 

34344 

34383 

73 

36024 

36063 

32 

34384 

34423 

74 

36064 

36103 

33 

34424 

34463 

75 

36104 

36143 

34 

34464 

34503 

76 

36144 

36183 

35 

34504 

34543 

77 

36184 

36223 

36 

34544 

34583 

78 

36224 

36263 

37 

34584 

34623 

79 

36264 

36303 

38 

34624 

34663 

80 

36304 

36343 

39 

34664 

34703 

81 

36344 

36383 

40 

34704 

34743 

82 

36384 

36423 

41 

34744 

34783 

83 

36424 

36463 


MODO GRAFICO 8 

Este modo ofrece la máxima resolución de 
todos los disponibles en el ATARI. Junto con 
eso consume también la mayor cantidad de memo¬ 
ria: casi 8 Kb. 

Los colores que se pueden usar son 2. El 
registro 1 (loe. 709) puede producir alguna difi¬ 
cultad ya que también afecta a la ventana de 
texto. El segundo color es el registro 2 (loe. 710), 
que afecta el fondo y se logra mediante el coman¬ 
do COLOR 0. 

Formato de pantalla de modo 8: 

Los esquemas siguientes muestran las carac¬ 
terísticas de coordenadas de pantalla y la ubica¬ 
ción de dicha pantalla en memoria RAM: 


PANTALLA 8 EN RAM 


Línea 

Decimal 

línea 

Decimal 

inicio 

fin 

inicio 

fin 

84 

36464 

36503 

126 

38144 

38183 

85 

36504 

36543 

127 

38184 

38223 

86 

36544 

36583 

128 

38224 

38263 

87 

36584 

36623 

129 

38264 

38303 

88 

36624 

36663 

130 

38304 

38343 

89 

36664 

36703 

131 

38344 

38383 

90 

36704 

36743 

132 

38384 

38423 

91 

36744 

36783 

133 

38424 

38463 

92 

36784 

36823 

134 

38464 

38503 

93 

36824 

36863 

135 

38504 

38543 

94 

36864 

36903 

136 

38544 

38583 

95 

36904 

36943 

137 

38584 

38623 

96 

36944 

36983 

138 

38624 

38663 

97 

36984 

37023 

139 

38664 

38703 

98 

37024 

37063 

140 

38704 

38743 

99 

37064 

37103 

141 

38744 

38783 

100 

37104 

37143 

142 

38784 

38823 

101 

37144 

37183 

143 

38824 

38863 

102 

37184 

37223 

144 

38864 

38903 

103 

37224 

37263 

145 

38904 

38943 

104 

37264 

37303 

146 

38944 

38983 

105 

37304 

37343 

147 

38984 

39023 

106 

37344 

37383 

148 

39024 

39063 

107 

37384 

37423 

149 

39064 

39103 

108 

37424 

37463 

150 

39104 

39143 

109 

37464 

37503 

151 

39144 

39183 

110 

37504 

37543 

152 

39184 

39223 

111 

37544 

37583 

153 

39224 

39263 

112 

37584 

37623 

154 

39264 

39303 

113 

37624 

37663 

155 

39304 

39343 

114 

37664 

37703 

156 

39344 

39383 

115 

37704 

37743 

157 

39384 

39423 

116 

37744 

37783 

158 

39424 

39463 

117 

118 

37784 

37824 

37823 

37863 

159 

39464 

39503 




119 

37864 

37903 

ventana texto 

120 











121 

37944 

37983 

0 

40800 

40839 

122 

37984 

38023 

1 

40840 

40879 

123 

38024 

38063 

2 

40880 

40919 

124 

38064 

38103 

3 

40920 

40959 

125 

38104 

38143 
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TUTORIA: continuación 



Programas 

demostrativos 


A continuación proporcionamos una serie de pro¬ 
gramas demostrativos y de aplicación de las 
potencialidades gráficas del computador ATARI. 


DEMOSTRATIVO 1 

Si ha digitado correctamente verá aparecer en 
pantalla una bandera de franjas horizontales en 3 
colores. 

Primero asignamos los colores mediante la ins¬ 
trucción SETCOLOR y luego se controla la apli¬ 
cación con COLOR 1,2 ó 3. 

Como desafío puede cambiar los colores a su 
gusto. También puede reemplazar la instrucción 
SETCOLOR por POKE, según se ha comentado 
anteriormente. Por último puede diseñar franjas 
verticales, diagonales o como usted prefiera. 


DEMOSTRATIVO 2 

Esta es una variación del programa anterior. 
En pantalla se crea un marco de 2 colores. 

¿Pero qué colores? no hay ninguna asigna¬ 
ción de colores. (?). En realidad no hemos especi¬ 
ficado ningún color, pero sí el computador, éstos 
son los llamados colores asumidos. 


ie ren mvr.imm 
15 GRAPHICS 3 
20 SETCOLOR 4,0,0 
25 SETCOLOR 8,4,4 
30 SETCOLOR 1,0,14 
35 SETCOLOR 2,7,2 
40 COLOR 1 

45 PLOT 5,5:DRAHT0 34,5 
50 COLOR 2 

55 PLOT 5,6:0RAHT0 34,6 
60 COLOR 3 

65 PLOT 5,7:DRAHT0 34,7 


100 REH 

105 GRAPHICS 3+16 
110 COLOR 1 

115 PLOT 0,0:DRAMTO 39,0:DRAHTO 39,23 
128 COLOR 2 

125 PLOT 38,23:DRAHT0 0,23:DRAHT0 0,1 
130 GOTO 130 
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TUTORIA: continuación 


DEMOSTRATIVO 3 

En modo de texto 2 determinamos colores 
en las líneas 210 a 220. Luego escribimos 3 títu¬ 
los en distintos tipos de letras y los ubicamos 
mediante la instrucción POSITION. 

La distribución de los colores está dada de 
acuerdo al tipo de letra utilizado. 

La línea 255 es un ciclo cerrado para mante¬ 
ner la pantalla estable una vez terminado el pro¬ 
grama. ¿Qué pasa si la elimina? 


200 rem 

205 GRAPHICS 2+16 
210 SETC0L0R 4,14,2 
215 5ETC0L0R 0,14,10 
220 5ETC0L0R 1,4,10 
225 POSITION 4,3 
230 ? #6;"REVISTA" 

235 POSITION 6,5 
240 ? 86;"Mundoatari" 
245 POSITION 8,7 
250 ? tt6;"lKliBr 
255 GOTO 255 



DEMOSTRATIVO 4 

Este es un ejemplo más largo de las técnicas 
explicadas en las páginas anteriores. 

En modo gráfico 3 se hace una cara simple 
que mueve los ojos y la boca mientras se ejecutan 
sonidos sincronizados. 

El movimiento es posible al borrar con CO¬ 
LOR 0 (color negro) los trazos anteriores y redi¬ 
bujar la secuencia siguiente. 

El programa es fácil de entender y compren¬ 
der la técnica de animación usada. 

¿Se anima a modificarlo? Grábelo antes 
por las dudas. 


300 REH ■>»;[■■■ 

305 REH ** Aplica gráfico y sonido 
310 GRAPHICS 3+16 


315 5ETC0L0R 4,12,2 

328 SETCOLOR 0,0,14 

325 SETCOLOR 1,4,4 

330 SETCOLOR 2,0,0 

335 REH ** Dibuja ojos 

340 COLOR 1:PLOT'14,7:DRAHTO 16,7 

345 PLOT 23,7¡DRAHTO 25,7:PL0T 14,8 

350 PLOT 15,8¡PLOT, 23,8¡PLOT 24,8 

355 REH ** Dibuja boca cerrada 

360 COLOR 3¡PLOT 16,8¡PLOT 25,8 

365 COLOR 2¡PLOT 17,13¡DRAHTO 22,13 

370 PLOT 17,14¡DRAHTO 22,14 

375 REH ** Espera un nonento 

388 FOR T=1 TO 580¡NEXT T 

385 REH ** Toca una nota 

396 SOUND 0,60,10,10¡GOSUB 450 

395 SOUND 0,47,10,10¡GOSUB 450 

400 SOUND 0,40,10,10¡GOSUB 450 

405 SOUND 0,29,10,10¡GOSUB 450 

410 SOUND 0,40,10,10 iGOSUB 450 

415 SOUND 0,47,10,10¡GOSUB 450 

420 SOUND 0,60,10,10¡GOSUB 450 

425 REH ** Repite otra vez 

438 GOTO 375 

435 REH «* Borra boca cerrada 

440 COLOR 0¡PLOT 17,13¡DRAHTO 22,13 

445 PLOT 17,14¡DRAHTO 22,14 

450 REH ** Dibuja boca abierta 

455 COLOR 2¡PLOT 18,12¡DRAHT0 21,12 

460 DRAHTO 21,15¡DRAHT0 18,15¡DRAHTO 1 

8,12 

465 REH i» Hueve pupilas 

470 COLOR 1:PL0T 16,8¡PLOT 25,8 

475 COLOR 3¡PL0T 16,7¡PL0T 25,7 

480 REH ** Hantiene nota 

485 FOR D=1 TO 100¡NEXT D 

490 REH ** Borra boca abierta 

495 COLOR 0¡PLOT 18,12¡DRAHTO 21,12 

500 DRAHTO 21,15¡DRAHTO 18,15¡DRAHTO 1 

8,12 

585 REH ** Hueve pupilas 

510 COLOR 1¡PL0T 16,7¡PL0T 25,7 

515 COLOR 3¡PLOT 16,8¡PL0T 25,8 

520 REH ** Dibuja boca cerrada 

525 COLOR 2¡PL0T 17,13¡DRAHTO 22,13 

530 PLOT 17,14¡DRAHTO 22,14 

535 REH *« Calla nota 

540 FOR T=1 TO 20 

545 SOUND 0,0,0,0 

550 NEXT T 

555 RETURN 
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TUTORIA: continuación 


Finalmente incluimos otros programas más 
elaborados para lectores más avanzados que ma¬ 
nejan técnicas tratadas en números anteriores de 
MUNDO ATAR!. , 

El primer ejemplo corresponde al trazado en 
pantalla de un juego conocido como "Maze Craze 
que utiliza el modo 3 sin ventana y con despliegue 
de 4 colores. 

Si usted modifica las localizaciones del 708 
al 712 a su gusto tendrá un tablero original. 


10 GRAPHICS 19 
20 CILIR 1 
30 FflR A=0 T0 4 
40 PLOT A*2,A*2 
50 DRAMTO 39~A*2,A*2 
60 DRAMTO 39-A*2,23-A*2 
70 DRAMTO A*2,23~A*2 
80 DRAMTO A*2,A*2 
90 NEHT A 
108 COLOR 0 

118 PLOT 19,2:DRAMTO 19,21 

128 PLOT 20,2¡DRAMTO 20,21 

131 PLIT 2,11¡DRAMTO 37,11 

148 PLOT 2,12:DRANTO 37,12 

150 COLOR 2 

168 PLIT 18,10 

171 IRAMTO 29,11 

181 IRAMTO 29,13 

191 IRAWTO 10,13 

201 IRAMTO 10,11 

218 COLOR 3 

221 PLIT 11,11 

231 IRAMTO 28,11 

241 PLIT 11,12 

251 IRAMTO 28,12 

1010 GIT0 1001 


El siguiente ejemplo demuestra otra forma 
de identificar los colores simultánemente . 

Luego de trazar 3 cuadrados en la parte in¬ 
ferior de la pantalla mediante los registros 1, 2 y 
3 (líneas 30-60), presenta en la ventana de texto 
un mensaje para usar el joystick. 

La localización 632 contiene la lectura del 
joystick, o sea, es la misma respuesta que se tiene 
al digitar: 

? STICKfO) 

El programa reconoce el movimiento hacia 
la izquierda, la derecha o hacia arriba para posi- 
cionarse en el cuadrado correspondiente y empe¬ 
zar a aumentar o disminuir el valor del registro 
de color del mismo. Simultáneamente produce 
el cambio de color a ese contenido. 


Los cambios de color se efectúan mediante 
la instrucción POKE que introduce valores selec¬ 
cionados por usted a las localizaciones 708-712. 

Las líneas comprendidas entre 90 y 130 
tienen por objeto servir de límite a los valores 
seleccionados, de modo que no se produzca un 
error 3 por ingresar números negativos o supe¬ 
riores a 255 en los registros. 


10 REH #* Demostrativo de registros de 
color POKE 

20 POKE 764,255¡GRAPHICS 3 
30 FOR X=3 TO 13:F0R Y=ll TO 17¡COLOR 
1 ¡ PLOT H, Y¡DRAMTO X+1,YU¡MEXT TÜEXT 
X 

40 FOR K=14 TO 23¡FOR Y=10 TO 17¡COLOR 
2¡PLOT X,Y¡IRAMTO X*l,V+l!IEHT Y:MEKT 
X 

50 FOR X=Z4 TO 33¡F0R Y=10 TO 17¡CILIR 
3¡PLOT X,Y ¡DRAMTO X+l, Y+l ¡REXT V.MEXT 
X 

60 X=10:Y=1I¡2=10:0=10 
70 POKE 752,1¡? "CRAPRICS 3: Use el JO 
ystick y Trigger para cantiar registro 
s de color" 

80 FOR P=1 TO 108:REXT P¡T=PEEK(644)¡5 
-PEEKC632):P0KE 752,1 'v 

90 IF X>=254 OR X<1 THEH X=1:G0T0 80 
100 IF Y>=254 OR YU THEN Y=1:G0T0 88 

110 IF Z>=254 OR ZU THEM Z=1¡G0T0 80 

120 IF Q>=254 OR OU THEM 0=1 ¡GOTO 80 

130 IF 5=13 AND T=0 THEM Q=Q-1:P0KE 71 
2,0¡? CHRSÍ125):? ¡? CHR5(127);"BACKGR 
0I1ND COLOR: POKE 712,";Q¡GOTO 80 
140 IF 5=11 AND T=0 THEM X=X-i:P0KE 70 

8, X¡? CHRS(125) J" 708,";X¡GOTO 80 
150 IF 5=14 AND T=0 THEM Y=Y~1¡P0KE 70 

9, Y¡? CHRSC125)JCHR5C127)JCHR5(127)J" 
789,";Y¡GOTO 80 

168 IF 5=7 AND T=8 THEN Z=Z~1¡P0KE 710 

,Z¡? CHRS(125);CHRS(127) ¡ CHRS(127);CHR 

5(127);" 710,";Z¡GOTO 80 

170 IF 5=11 THEN X=X+1¡P0KE 708,X¡? CH 

RS(125);" 708,»;X¡GOTO 80 

180 IF 5=14 THEN Y=Y+1¡P0KE 789,Y¡? CH 

R5(125);CHRS(127)J CHRS(127);» 709,";Y 

¡GOTO 80 

198 IF 5=7 THEN Z=Z+1¡P0KE 710,Z¡? CHR 
$(125) ,'CHRS(127);CHRS(127) ;CHR5(127);" 
710,";Z¡GOTO 80 

200 IF S=13 THEN 0=0*1:POXE 712,Q¡? CH 
RS1125):? ¡? CHR5Í127);"BACKGROUND COL 
0R¡ POKE 712,"JQ¡G0T0 80 
210 GOTO 80 
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TUTORIA: continuación 



El listado siguiente presenta una forma ele¬ 
mental del juego "BONG", un pionero de los 
videojuegos. 

Luego de trazar el campo de juego con los 
registros 1 y 2 combina los registros 0 y 3 para 
plotear un cuadro y borrarlo a la vuelta. De ese 
modo crea el efecto de botes diagonales de una 
pelota, sin que pierda su impulso inicial. 

Los algoritmos de las líneas 220 y 230 con¬ 
trolan el sentido de la pelota hacia arriba o hacia 
abajo. 

La línea 190 evita que después de 5 minutos 
sin tocar el teclado se inicie el cambio de colores 
de pantalla, que normalmente está destinado a 
proteger la pantalla del televisor. 


5 IEH ** JUEGO BONG 
10 GIAPHIC5 15:POIE 710,15 
20 X=i: Y=l:DK=I:DY=1:XB=X:YB=Y 
30 3C=PEEK(88)+25C*PEEK(89) 

40 FIR A=0 T0 3 

50 P8KE SC+113+A, «5:NEXT A 

60 CILIR ÜPLOT 0,0:DIAHTI 38,8 

70 PLOT 1,23:DRéWTO 35,23 

80 CILIR 2¡PL0r 0,1:DIANT! 1,23 

90 PLOT 39, 8: DRéWTO 35,22 

101 eOLOI I 

lll PLIT XB,YB 

128 KB=X:YB=Y 

131 K-K+IX 

141 T=T+IY 

151 LOCATE X, Y, Z 

161 IF ZOI THEN GOTO 210 

178 COLOI 3 

188 PLIT X,Y 

198 POKE 77,0 

208 COTO 108 

218 50UND 0,180,18,10 

228 IF Z=1 THEN DT=-DY 

238 IF Z=2 THEN D*=-DK 

248 K=X8:Y=YB 

258 PONE 707FZ, PEEKÍ281 

268 S0UM> 0,0,0,8 

278 COTO 138 


COLABORACION 

Nuestro último ejemplo es una contribución 
enviada por don Jorge Flores y que calza perfec¬ 
tamente con nuestro tema de marzo. 

En la sección Correo publicamos un extrac¬ 
to de su carta y le asignamos un premio por su 
esfuerzo. 

El programa se llama "Representación topo¬ 
gráfica", que en este caso es una forma tridimen¬ 
sional en modo 8. 

En el arreglo A(255) crea una tabla con los 
DATA al final del programa que controla el orden 
de los puntos en la pantalla. 

Su autor sugiere poner una instrucción TRAP 
81 en la línea 65 para evitar errores por valores 
muy altos. Eso vale para el caso que usted esté 
pensando experimentar por su cuenta. 

Hasta el próximo mes. 


16 DIM A(225)!FOR T=1 T0 225:READ 5:Ai 

T)=S:NEXT T:GRAPHICS 8:SETC0L0R 1,0,8: 

SETC0L0R 2,0,15:SETC0L0R 4,8,15 

15 COLOR 1:F0R X=1 T0 15 

20 FOR Y=1 T0 15 

25 T=Y:GOSUB 65 

38 HEXT YíNEXT X 

35 FOR Y=i T0 15 

40 FOR X=1 T0 15 

45 T=X:GOSUB 65 

58 MEXT X:HEXT Y 

55 POKE 752,1:? " Representación T 
tipográfica" 

68 GOTO 60 
65 PX=X*15+65-Y*3 
70 PY=Y*6-A(X*i5-15+Y)#3+35 
75 IF T=i THEM PLOT PX,PY 
60 IF TOi THEM DRAMIO PX,PY 
81 RETURN 

85 OATA 0,0,8,0,8,8,8,8,0,8,0,8,8,8,0 

86 DATA 0,3,3,3,3,8,3,8,3,3,3,3,3,3,8 

87 OATA 0,3,3,3,8,3,3,3,8,3,3,3,3,3,0 

88 OATA 0,3,3,8,3,3,3,3,3,8,3,3,3,3,8 

89 OATA 0,3,8,3,3,3,3,3,3,3,8,3,3,3,0 

90 OATA 8,8,3,3,3,3,3,3,3,3,3,8,3,3,8 

91 OATA 8,3,3,3,3,3,3,3,3,3,3,3,8,3,0 

92 DATA 8,8,3,3,3,3,3,3,3,3,3,3,3,8,0 

93 OATA 8,3,8,3,3,3,3,3,3,3,3,3,3,3,6 

94 OATA 0,3,3,8,3,3,3,3,3,3,3,3,3,8,0 

95 DATA 0,3,3,3,8,3,3,3,3,3,3,3,8,3,6 

96 OATA 0,3,3,3,3,8,3,3,3,3,3,8,3,3,0 

97 DATA 0,3,3,3,3,3,8,3,3,3,8,3,3,3,0 

98 OATA 0,3,3,3,3,3,3,8,3,8,3,3,3,3,8 

99 DATA 8,8,0,0,8,8,0,8,8,0,0,8,8,0,8 
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TIPIANDO 



JUEGO DEL MES: 


El Buzo 


El juego del mes de este número corresponde 
a la colaboración enviada por2 lectores amigos de • 
MUNDOATARI, señores Eric Ross y Juan Leiva. 

En la sección Correo se publica un resumen 
de su carta y se asigna el premio en software por 

su esfuerzo. . 

En el mismo programa se indican las pautas 
de puntaje y manéjo. Es importante conectar el 
joystick para dirigir al buzo en las peligrosas pro¬ 
fundidades del océano. 

Si usted tiene todavía dudas puede digitar el 
listado adjunto y ejecutarlo. Pasará agradables 
momentos tratando de aclararlas. 

Hasta el próximo mes. 


88 GQSUB 9000 
98 GOTO 9278 

108 5=PEEK(632)¡M0V=8:P=PEEK(P05+H0U(5 
)):IF MOT P THEM HGV=l:PÜKE 77,8¡GOTO 
386 

185 POSITIOM 4,22¡? 86;HS 

118 IF P-141 THEM M0M=8¡G05UB 10048 

128 IF P-2 OR P-3 THEM 6600 

138 IF P=198 THEM P05ITI0M 18,22¡? 86; 

A$:CARRY=1:H0V=1:S0UMD 0,12,12,8 

148 IF P-199 THEM P05ITI0N 18,22:? 86j 

B$:CARRY-2:M0V=1¡SOUMD 0,12,12,8 

158 IF P=136 THEM SC=SC+100:POSITIOM 4 

,21!? 86JSC:MOV=1:SOUMD 0,10,10,10 

160 IF PEEKÍ764) 0255 THEM POKE 764,25 

5;GOSUB 31800 

178 IF 5C>H5 THEM HS=SC :POSITIOM 4,22: 
? 86;HS 

388 IF MOV THEM POKE POS,0:PO5=POS+MOV 
(S)¡POKE POS,MAM 

318 F=PEE*(644):IF F OR CARRYOl THEM 
400 

328 FOR 1=5 TO i4:SWG=P0S+MGVÍI) 

338 SOUMD O,1+50,8,8:IF PEEK(SWG)-2 OR 
PEEK(SWG)=3 THEM POKE SMG,204:SC=SC+2 
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TIPIANDO 



5¡POSITION 4,22:? 116 ;SC 
340 FOR T=1 TO SK*2:IF POS(T)=5WG THEN 
FLA6(T)=0 

358 NEXT T:NEXT IiPOSITION 18,22:? «6; 
" NADA ":CARRY=0:FOR 1=5 TO 14:P=P0S+ 
MOU(I):IF PEEK(P>=204 THEN PONE P,0 
368 NEKT I: SOUND 8,6,8,8 
480 SOUND 0,0,8,8:IF F OR CARRY<>2 THE 
N 500 

418 FOR 1=5 TO 14:5WG=P0S+H0M(I) 

420 SOUND 0,1450,8,8:IF PEEK(5WG)=68 O 
R PEEN(SMG)=6? THEN PONE 5WG,204 
438 NEXT I:P05ITI0N 10,22:? »6;" NADA" 
:CARRY=0:FOR 1=5 TO 14:IF PEEN(P05*H0V 
II))=204 THEN PONE PQ5+KOVCI),0 
440 NEXT IsSOUND 0,0,8,0 
508 PONE 756,CH(1) 

510 M5T=MST+l:IF MST>SK*2 THEN MST=i 
520 IF NOT FLAG(MST) THEN 600 
538 H=POS(HST):H1=INT(M/28):P1=INT(POS 
/20):HOU=(POS-P1*20>M-H1*28)-(P0S~P1#2 
0<M-M1*20)+20*(P1>M1)-20*(P1<M1) 

548 P=PEEN(POS(HST)+HOM):IF P AND P<>M 
AN THEN 680 

558 PONE POS(H5T),0:PO5(HST)=POS(H5m 
MOV:PONE POS(HST),COL(HST) 

570 IF P05=P0S(HST) THEN 6808 
680 GOTO 180 

6800 P=8:SOUND 0,72,i2,lO:HEN=HEN-i:CO 
LOR 0:PLOT 16+MEN,0:POKE POS,284:FOR I 
=1 TO 111¡NEXT I 

6010 PONE POS,203:FOR 1=1 TO 222SNEXT 
I:SOUND 0,8,0,8:IF MEN THEN 6288 
6828 POSITION 2,4:? 86;"fin del juego" 
¡POSITION 2,6:? 86:' UJl-tMit-g.-iBi) " 

6038 IF PEEN (53279)06 THEN 6030 
6848 IF 5C>H5 THEN HS=SC 
6058 GOTO 90 

6200 POSITION 3,5:? U6j" 


Murió el buzo 


":FOR 1=0 TO 18:FOR 11=8 TO 70¡SOUND 8 
,II,10,10-1¡NEXT II:NEXT I:60T0 18840 
9808 DIH HOUS(39)¡RESTORE 900i:FOR 1=1 
TO 39:READ A:HOUS(I,I)=CHRS(A):NEXT I 
9001 DATA 184,104,133,215,104,133,214, 
104,133,217,104,133,216,184,133,218,18 
4,178,160,0,177,214,145,216 
9802 DATA 200,208,4,238,215,230,217,20 
2,288,242,198,218,16,238,96 
9088 DIH AS(9),B$(9), C$(7),CH(i),HOU(1 
5),FLAG(20),POS(20),COL(20) 

9818 AS="ARPON":B$= n HACHA":C$=" EL" 
9020 GRAPHICS 18:P0SITI0N 7,4:? 86;C$; 
""¡POSITION 7,6:? 86;"BUZO" 

9038 CH(0)=PEEK(186)-8:CH(1)=CH(0)-8:D 
=U5R(ADR(HOUS),57344,CH Í8>*256,1023) 
9040 FOR A=1 TO 13¡FOR 1=8 TO 7:READ B 
¡PONE CH(0)+A#8+I,B:PONE 708,B:NEXT I: 
NEXT A 

9058 DATA 7,15,38,56,48,0,192,192 
9O60 DATA 24,60,61,61,85,146,72,132 
9870 DATA 195,68,60,231,129,165,195,36 
9088 DATA 28,60,62,115,231,62,127,238 
9898 DATA 165,165,181,149,149,254,28,6 
2 

9188 DATA 1,2,4,8,24,40,206,192 
9116 DATA 8,26,68,15,22,36,64,128 
9128 DATA 128,57,16,58,184,57,56,146 
9138 DATA 24,68,24,68,90,24,36,36 
9140 DATA 255,255,255,255,255,255,255, 
255 

9150 DATA 8,0,24,60,60,60,60,60 
9168 DATA 137,74,36,192,3,36,82,145 
9170 DATA 8,32,88,136,5,2,0,8 
9200 D=USR(ADR(HOUS),CH(0)#256,CH(1)*2 
56,1023) 

9205 RESTORE 9238 

9218 READ A:IF.A=-1 THEN RETURN 

9220 FOR 1=8 TO 7¡READ B 

9225 PONE CH(1)#256+A*8+I,B:P0NE 788,B 

¡NEXT I:GOTO 9210 

9230 DATA 2,24,60,60,68,84,147,137,82 
9248 DATA 3,66,189,68,231,129,227,34,5 
5 

9250 DATA 8,255,129,189,165,165,189,12 
9,255 

9260 DATA 9,24,60,24,126,24,24,36,66 

9266 DATA 13,8,2,5,136,80,32,8,0 

9267 DATA 6,16,56,16,16,16,16,16,16,7, 
36,52,62,62,52,36,4,4,4,178,85,170,85, 
178,85,178,85 

9268 DATA 5,137,73,41,146,100,41,38,8, 
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TIPIANDO: continuación 


11,24,24,126,126,24,24,24,24,12,196,41 

,146,68,57,154,124,24 

9269 DATA -1 

9278 MOV (5)=21¡MOV(6)=-19:MOV(7)=1:MOV 
19)=19:MOV(18)=-21:MOV(11)=-l:MOV(13)= 
28:MOV(14)=-20 

9300 GRAPHICS 1+16:POKE 718,8:PQKE 756 
,CH(0)¡POSITION 6,0:? «6;"EL BUZO":POS 
ITION 6,1:? H6;*hhhhhhw" 

9305 POSITION 14,0:? H6;"hSCOre":P0SIT 
ION 14,15? tt6;HS 

9306 POSITION 0,0:? U6j"score":PQSITI0 
N 0,1:? t*6;SC 

9310 ? 86:? 86;") este es el buzo" 

9320 ? 1»:? #6;"* arpón p/ani»ales" 
9330 ? «6:? 86;"* hacha p/alga/coral" 
9348 ? 86:? 86;"( tesoro 180 pts." 

9358 ? 86:? tt6;""jCHR$(34);" pulpo 25" 
9368 ? 86:? 86;"8 cangrejo gigant 25" 
9370 ? «6:? 86;"$ paredes de coral" 
9388 ? «6:? 86; "X natas de algas" 

9385 PONE 756,144 

9390 REM PONE 752,i:CL05E 8H0PEN 1*1,4 
,8,"K:":? CHR$(125):? :? "SELECC.NIVEL 
.19 ";:GET8I,SK 

9395 REM 5K=SK-48:IF 5K<1 OR 5K>9 THEN 
9390 

9488 POSITION 3,22:? 86;"NIVEL :" 

9485 IF PEEK (53279) =5 THEN 5K=5K+1:IF 

SK>9 THEN SK=8 

9418 POSITION 18,22:? 86; SK 

9415 IF PEEK(53279)=6 THEN 9458 

9416 A=1 A 1 
9428 GOTO 9405 
9450 REM 

10000 TRAP 44444¡GRAPHICS 17IP0KE 756, 
CH(1)¡COLOR 173:PLQT i,l:DRAHTO 18,1:C 
OLOR 10:PLOT 0,20:DRAMTO 19,20 
10810 PLOT O,0:DRAHTO 0,23:DRAMT0 19,2 
3:DRAHT0 19,8¡POSITION 1,21:? 86;"SC¡0 
"•.POSITION 1,22:? H6;"hs:8" 

10020 POSITION 1,0:? 86;C$;"/BUZO"¡POS 
ITION 10,21:? 116;"LLEVA: "'.POSITION 11 
,22:? 116; "NADA" 

10830 POKE 708,103:POKE 709,215:POKE 7 
10,31:POKE 711,48:P0KE 712,192 
1O035 COLOR 137¡PLOT 17,0¡PLOT 18,O:ME 
N=3:SC=0 

10848 COLOR 32:F0R 1=2 TO 19:PL0T 1,1: 
DRAMTO 18,I¡NEKT I:FOR 1=8 TO 28:FLAG( 
I)=l:P0S(I)=77:NEHT I 


18050 FOR 1=0 TO 150:COLOR INT(2#RND(8 
)*4):PLOT INT(18*RND(0)*1),INT(18*RND( 
8)+2):NEXT I:COLOR 32:PLOT 5,19 
10068 DRAMTO 15,19:FOR 1=0 TO 18¡COLOR 
INT C2*RND(0)+134):PLOT INT(18*RND(0) + 
1),INT(18#RND(0)+2):NEKT I 
10078 COLOR 168:FOR 1=8 TO 6-SK/2:PL0T 
INT (18#RND (8) +1), INT (18*RND (0) +2): NEX 
T I 

10088 SCR=PEEK(88)+256«PEEK(89):TOP=SC 
R+40:P0S=SCR+389:MAN=281:POKE POS,MAN 
10098 FOR 1=1 TO 5K*2:C0L(I)=INT(2*RND 
( 0 )+ 2 ) 

10100 POS(I)=INT(360#RND(8)+40+SCR):P= 
PEEK(POS(I))¡IF P=74 OR P=2 OR P=3 OR 
P=MAN THEN 10180 

18110 POKE P05(I),COL(I):NEXT I:GOTO 1 
00 

30800 FOR T=0 TO 255 STEP 1:P0KE 756,C 
H(T) 

30610 ? T 

38020 IF PEEK(53279)=6 THEN NEKT T 
30030 GOTO 30O28 

31088 IF PEEK (764) 0255 THEN POKE 764, 
255:RETURN 


31001 60T0 310O0 
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ASSEMBLER 



La columna USR proporciona este mes a sus ami¬ 
gos avanzados información acerca del tema central 
de esta edición: los modos gráficos. 


MODO ANTIC3 

La primera rutina transforma la pantalla del 
modo de texto 0 al modo ANTIC 3. Recordemos 
que la característica de este modo es la de presen¬ 
tar 10 líneas sean a diferencia de las 8 que tiene el 
modo 0. 

La importancia de este modo con letras de 
mayor tamaño en el sentido horizontal es que per¬ 
mite modificar el set de caracteres para crear una 
nueva-versión en que las letras minúsculas sobre¬ 
pasan el tamaño de las mayúsculas. 

Ejemplo: jpqgTTTTT 

Otras aplicaciones son para el superscript y 
el subscript. 

Digite cuidadosamente el siguiente listado: 


10 X-US R (AD R ("h Q/ CEfl f/ B i CBE0 COFA 

nsi u n mw i#**) 

> 

28 ? "JjPpQqYy" 


Los datos mencionados corresponden a: 

104, 173, 47, 2, 133, 205, 169, 0, 141,47, 2, 
173, 49, 2, 133, 204, 173, 48, 2, 133, 203, 160, 
3, 169, 67, 145, 203, 160, 6, 169,3, 145, 203, 
200, 192, 24, 208, 249, 169, 65, 145, 203, 200, 
173, 48, 2, 145, 203, 173, 49, 2, 200, 145, 203, 
165,205, 141,47,2,96. 


Pensando en los lectores que nos escriben 
acerca de la dificultad de digitar estos caracteres de 
la rutina ML, MUNDOATARI creó este simple 
programa, que permite trasladar los caracteres de 
la rutina a datos numéricos que usted puede: 

— Incorporar en línea de DATA (ver MUNDO- 
ATARI 21 en la sección USR, modos de in¬ 
greso a la memoria de datos para USR. 

— Digitar el carácter correspondiente al valor 
ASCII. 


10 x =(ftD RC“hg/ CEOfi/ El CH30 CQHQCfQ 

■/^raawiPHAfsaiB© vssi ja ma /1«">> 

20 J=X 

30 IF CHR$(PEEKCJ>)="♦" THE* 100 
40 PRINT PEEKCJ) 

50 J=J+1 
60 GOTO 30 
100 ? PEEK(J) 

110 END 


MODO ANTIC 4 

Las características particulares de este modo 
equivalen al modo 12. Este modo proporciona le¬ 
tras de color individuales. 

Digite el siguiente listado: 


16 K=U5R (ADR("hfll EVEo EOS/ CHD«|/ Wü 
14 ")) 

20 LIST :REH 50HETHING TO LOOK AT. 


D> 
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ASSEMBLER: continuación 


Las líneas de DATA corresponden a: 

104, 173, 49, 2, 133, 204, 173, 48, 2, 133, 203, 
173, 47, 2, 133, 205, 169, 0, 141,47, 2, 160, 3, 
169' 68 145, 203, 160, 6, 169, 4 145, 203, 200, * 
192' 29, 208, 249, 165, 205, 141, 47, 2, 96. 


MODO ANTIC 5. 

La siguiente rutina en máquina modifica la 
lista de despliegue del modo 1 ai modo ANTIC 5, 
que equivale al 13. 

Los caracteres son similares al programa an¬ 
terior con la diferencia de un mayor tamaño. 


10 6RAPHICS 1+16 

20 ? tt6; ,, ABC0EFGHIJKLMNOP«R5TUVWXYZ ,, 

30 X-liSR(ADR("hBi C TO PCfi / CCH^ / VEI 

tnriAh nccE vmu m/ 

j 

40 GOTO 48 


Las líneas de DATA corresponden a: 

104 173, 49, 2, 133, 204, 173, 48, 2, 133, 203, 
173, 47, 2, 133, 205, 169, 0, 141,47, 2, 160, 3, 
169, 69, 145, 203, 160, 6, 169, 5, 145, 203, 
200 192 17, 208, 249, 169, 65, 145, 203, 200, 
173', 48, 2, 145, 203, 200, 173, 49, 2, 145, 203, 
165! 205, 141,47,2,96. 


MODO ANTIC C 

Este modo equivale al modo gráfico 14 y 
despliega sólo 2 colores. 


18 GRAPHICS 7+16 A _ 

26 X=USR (ADR í"hS¡/ CBDfl/ H8,'tirttü«0pr, 

eraLKGHDraiHEnaar 
m * croan !♦") > 

30 COLOR 1;PLOT 8,40:DRAWTO 79,40 
40 GOTO 40 


Las líneas de DATA son las siguientes: 


104 173, 47, 2, 133, 205, 169, 0, 141. 47, 2, 
169* 56 133, 203, 169, 143, 133, 204, 160, 0, 
169’ 112 145, 203, 200, 192, 3, 208, 249, 169, 
76, í 45, 203,200, 169,96. 


MODO ANTIC E. 

Este es el modo de uso más importante en 
programas de dibujo como MicroPainter, Koala, 
Touch Tablet, etc. 


10 GRAPHICS 8+16 

28 COLOR 1:PL0T 8,0:0RAW T0 319, 191 
30 X=USR(ADRÍ“h| Qi EEB0 Cd3£QASI-«8Q|> 

40 GOTO 40 


Las líneas de DATA equivalente son: 


104, 160, 2, 173, 49, 2, 133, 206, 1 73, 48, 2, 133, 
205, 200, 177, 205, 201, 65, 208, 1, 96, 56, 
233 1 201,78, 208, 6, 145, 205, 200, 200, 208, 
235Í 201,14, 208, 231,145, 205, 240. 


MODO GRAFICO 8 

Este programa completa la pantalla con la 
imagen de bit de 2 números en un mapa d,e bits 
secuencial. 


10 GRAPHICS 8+16:P0KE 710,8:REM MAKE 
A BLACK BACKGROUHD. 

28 X-USR (ADR ( "h^nSxn 3hh^EthLjai0tt+ajr. 
SKIihQlI? 03mEH!H3* ,, > ,8,255) 

38 GOTO 36 


Lista de DATA para la ML rutina: 

104, 165, 89, 133, 204, 165, 88, 133, 203, 104, 
104 133, 205, 104, 104, 133, 206, 160, 0, 162, 
30 165 205, 145, 203, 200, 208, 5, 230, 204, 
202, 240, 12, 165, 206, 145, 203, 200, 208, 237, 
230, 204, 202, 208, 232, 96. 


PROGRAMA LIMPIA PANTALLAS 

Esta rutina es muy útil en programación para 
cambiar datos en la pantalla. 


10 GRAPHICS 8+16:PQKE 718,0 
28 COLOR ÜPLOT 0,8:DRAWTO 319,0:DRAMT 
0 319,191:DRAHTO 0,19l:DRANTO B,8:REM 
DRAM S0METHIH6 OH 5CREEH, 

38 XrUSRtADRChffiVaDBXSSI^n 
♦")) 

40 GOTO 48 


KHPtfLJPV 


Los DATA correspondientes son: 

104, 165, 89, 133, 204, 165, 88, 133, 203, 169, 
0, 168, 162, 30, 145, 203, 200, 208, 251, 230, 
204, 202, 208, 246, 96. 


Bien amigos, hasta aqui por hoy. El próximo 
número continuaremos con otras importantes 
rutinas para el uso del computador ATARI.® 
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ASSEMBLER: continuación 


Directo 
al 6502 

8 REH MICR0ASEH8LER 

18 DIM HXS (21, SX$ (1), UNS (1), HN$ (1281) , 
BV (256), COS (16), TS (S) , MS (5), AS(15), US ( 
15) 

11 DIM 81$(2),B2S(2),B3S(2),ADS(4), S3S 
(1),52S(1),SS(1),USC1) 

12 DIH N$ (8),M2S(18) 

28 FOR E=8 TO 255 

38 READ TS,T¡MNS(E*5+1)=TS¡BY(E)=T:T$= 

48 NEXT E 
50 TS:"" 

60 FOR E=1 TO 16 

70 READ TS:C0S(EI=T$¡T$="" 

80 NEKT E 
90 GRAPHICS 0 

108 PRINT "1. Ingresa códigos y Ensamb 
la" 

118 PRINT "2. Salva Programa objeto a 
casete" 

120 PRINT "3. Carga Programa objeto de 
sde casete" 

130 PRINT "4. Ejecuta Programa en Hagu 
ina" 

146 PRINT "5. LLama a Programa ML com 
USR " 

145 PRINT " Rutinas " 

150 PRINT "6. List de programa en Hagu 
ina" 

170 INPUT T:IF (T<=0) OR (T>6) THEN GO 
TO 170 

180 ON T GOSUB 14008,20000,9000,10800. 

11088,2900 

190 GOTO 90 

1000 SX=INT(DC/16) 

1010 UN=DC-(SX*16) 

1020 SXS=C0$(5X+1) 

1030 UNS=C0S(UN+1) 

Í040 HXS(1)=SX$ : HXS (2) =UN$ 

1050 RETURN 
2908 GRAPHICS 0 

2910 PRINT "LOC INICIAL ¡INPUT AD;I 
=8 

3000 IF 1=23 THEN 60T0 5050 

3001 1=1+1 

3005 IB=PEEK(AD) 

3010 T$:MNS(IB*5+i) 

3015 IF TSO"NULL " THEN GOTO 3058 

3025 DC=IB:GOSUB 1000¡GOSUB 13000 

3830 PRINT ADS¡" "jHXSj" *" 

3040 AD=AD+1:G0T0 3006 

3050 OH BY(IB) GOTO 3068,3090,4050 

3060 DC=IB:GOSUB 1606¡GOSUB 13006 

3076 PRINT ADS¡" "jHXSj" "JTS 

3075 AD=AD+1 

3080 GOTO 3080 

3090 DC=IB;GOSUB 1006 

4800 B1S=HXS 

4010 DC=PEEK(AD+1)¡GOSUB 1806 

4011 B2S=HX$ 

4024 605UB 13088¡P=DC 

4030 PRINT AD$;“ ";B1S;" ";B2S;" 

"iTS;" ";P 

4035 AD=AD+2 

4040 GOTO 3000 


4050 DC=I8:GOSUB 1080 
4068 BlS=HXS 

4070 DC=PEEK(AD+1)¡GOSUB 1008 
4088 B2$=HX$ 

4090 DC=PEEK(AD+2)¡GOSUB 1000 
5800 B3$=HX$ 

5010 OP=PEEK(AD+1)+(PEEN(AD+2)*256) 

5011 GOSUB 13008 

5020 PRINT ADS;" "jBlS;" "¡B2S¡" "¡63 
$;" "¡TS;" "¡OP 

5025 AD=AD+3 
5030 GOTO 3000 

5050 INPUT TS 

5051 IF TS<>“" THEN RETURN 

5052 GRAPHICS 0:1=0¡GOTO 3000 

6000 DATA BRK ,1,0RAIX,2,NULL ,0,NULL 
,8,ORAZ ,2,ASL ,2,NULL ,0,PHP ,1 
6805 CATA NULL ,6 

6010 DATA 0RAIH.2,OSLA ,1,NULL ,0,NULL 
,0,ORA ,3,ASL ,3,NULL ,8,BPL ,2,0R 
AIY, 2 

6020 DATA NULL ,0,NULL ,8,NULL ,0,ORAZ 
X,2,ASLZX,2,NULL ,0,CLC ,1,0RAY ,3 
6830 DATA NULL ,0,NULL ,0,NULL ,0,ORAX 
,3,ASLX ,3,NULL ,8,JSR ,3,ANDIX,2,NU 
LL ,0 

6040 DATA NULL ,8,BITZ ,2,ANDZ ,2,R0LZ 
,2,NULL ,8,PLP ,1,ANDIH,2,ROLA ,1,NU 
LL ,0 

6050 DATA BIT ,3,AND ,3,ROL ,3,NULL 
,B,BMI ,2,ANDIY,2,NULL ,B,NULL ,0,NU 
LL ,0 

6060 DATA ANDZX,2,R0LZX,2,NULL ,0,SEC 
,1,ANDY ,3,NULL ,0,NULL ,0,NULL ,6,AN 
DX ,3 

6070 DATA ROLX ,3,NULL ,0,RTI ,1,E0RI 
X,2,NULL ,0,NULL ,0,NULL ,8,E0RZ ,2,LS 
RZ ,2 

6080 DATA NULL ,0,PHA ,l,E0RIh,2,LSRA 
,l.NULL ,0,JhP ,3,E0R ,3,L5R ,3,NU 

LL ,0 

6090 DATA BUC ,2,E0RIY,2,NULL ,B,HULL 
,0,NULL ,6,EORZX,2,LSRZX,2,NULL ,0 
6108 DATA CLI ,1,E0RY ,3,NULL ,0,NULL 
,0,NULL ,0,EORX ,3,LSRX ,3,NULL ,0,RT 
S ,1 

6110 DATA ADCIX,2,NULL ,0,NULL 70,NULL 
,0,ADCZ ,2,RORZ ,2,NULL ,0,PLA ,1,AD 
CIH.2 

6128 DATA RORA ,1,NULL ,0,JHPI ,3,ADC 
,3,R0R ,3,NULL ,0,8US ,2,ADCIY,2,NU 

LL ,0 

6130 DATA NULL ,0,NULL ,0,ADCZX,2,R0RZ 

X, 2,NULL ,0,SEI ,1,ADCY ,3,NULL ,0,NU 
LL ,6 

6140 DOTA NULL ,B,ADCX ,3,R0RX ,3,NULL 
,0,NULL ,0,STAIX,2,NULL ,0,NULL ,8,ST 
YZ ,2 

6150 DATA 5TAZ ,2,5TXZ ,2,NULL ,6,DEY 
,1,NULL ,0,TXA ,l.NULL ,8,STY ,3,ST 
O ,3 

6160 DATA STX ,3,NULL ,8,BCC ,2,STAI 

Y, 2,NULL ,8,NULL ,8,STYZX.2,5TAZX,2,ST 
XZV, 2 

6170 DATA NULL ,0,TYA ,1,STAY ,3,TXS 
,l.NULL ,8,NULL ,0,STAX ,3,NULL ,0,NU 
LL ,0 

6180 DATA LDYIH,2,LDAIK,2,LDXIH,2,NULL 
,0,LDYZ ,2,LDOZ ,2,LDXZ ,2,NULL ,0 
6190 DATA TAY ,1,LDAIM,2,TAX .l.NULL 
,0,LDY ,3,LDA ,3,LDX ,3,NULL ,0,BC 
S ,2 

6200 DATO LDAIY.2.NULL ,8,NULL ,0,LDYZ 
X,2,LDAZX,2,LDXZY,2,NULL ,0,CLU ,1 
6210 DATA LDAY ,3,TSX .l.NULL ,0,LDYX 
,3.LDAX .3.LDXY .l.NULL ,0,CPYIH,2,CM 
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ASSEMBLER: continuación 


PIX,2 

6226 OOTA NULL ,0,NULL ,0,CPYZ ,2,CMPZ 
,2,OECZ ,2,NULL ,8,IMY ,X,CMPIM,2,DE 
X ,1 

62J6 DATA NULL ,0,CPY ,3,CMP ,3,DEC 
,3,NULL , 6 , BHt ,2,CHPIY,2,NULL ,8,NU 
LL ,8 

6246 DATA NULL ,6,CHPZK,2,DECZK,2,NULL 
,0,CLD ,1,CMPY ,3,NULL ,8,NULL ,8,NU 
LL ,0 

6256 DATA CHPX ,3,DECX ,3,NULL ,8,CPXI 
H,2,SBCIX,2,NULL ,8,NULL ,6,CPXZ ,2,5B 
CZ ,2 

6266 DATO INCZ .2,N1M± ,0 ; JNM ,Í,5BCI 
m', 2,NOP ,i,NULL ,8,CPX ,3,SBC ,3,IN 
C ,3 

6270 DATA NULL ,0,BEQ ,2,58CIY,2.NULL 
,6,NULL ,6,NULL ,8,SBCZX,2,IKCZX,2,NU 
LL ,0,SED ,1 

6206 DOTO 58CY ,3,NULL ,0,HULL ,0,NULL 
,0,SBCX ,3,INCX ,3,NULL ,8 
6296 DOTA 0,1,2,3,4,5,6,7,8,9,A,B,C,D, 
E,F 

9668 GRAPHICS 0 

9010 PRINT "NOMBRE DEL PROGRAMA"; :INPU 
T N$ 

9015 N2$-"C:";N2S(3)-N$ 

9026 OPEN «1,4,0,02$ 

9030 INPUT »1,ZZ 
9040 INPUT til,EN 
9050 POR AD-ZZ TO EN 
9060 INPUT til,DA 
9070 PONE AD.DA 
9080 NEXT OD 
9090 CLOSE ttl 
9100 RETURN 
18060 GRAPHICS 6 

16010 PRINT "DIRECCION EN BASE 10 
; ¡INPUT AD 

10015 IF 00)65535 THEN GOTO 10000 
18026 T99:U5R(AD) 

10636 RETURN 
11800 GRAPHICS 0 

11810 PRINT "Enter Valué to be passed" 
;¡INPUT OC 

11020 PRINT "Enter Address ¡n Base 10" 
INPUT AD 

11058 T99:U5R(AD,AC) 

11060 RETURN 

13600 A:AD¡S3=INT(AD/4096) 

13802 A=A-53»4096 
13010 52=INT(A/256) 

13012 A:A-S2*256 
13020 S=INT(A/16) 

13060 U=AD-(53*40964S2*256+S«16) 

13870 53$:C0$ (53+1) 

13080 52$=C0$(S2F1> 

13890 S$:C0$(5*1) 

13100 U$:C0$(U*1) 

13110 AD$(1>:S3$:AD$(2):S2$:AD$(3>:5$; 
AD$(4)=U$ 

13128 RETURN 

14000 GRAPHICS 0:AD:026¡ZZ-826 
1401O PRINT "(MNEMONIC)(SPACE)(OPERAND 
)" J 

14020 GOSUB 15860 
14830 F:0 

14040 FOR E-0 TO 255 

14041 T$:MN$ (EN5+1) 

14050 IF T$OM$ THEN GOTO 14060 
14851 B:BY(E):F:1:CD:E;E:256 
14060 NEXT E 

14870 IF F-0 THEN GOTO 14260 
14880 ON B GOSUB 14106,14130,14180 
14090 GOTO 14620 
14108 PONE OD.CD 


14118 AD:ADU 
14120 RETURN 

14130 IF OP>255 OR OP<0 THEN PRINT "ER 

ROR - OPERAND"¡RETURN 

14146 PONE 0D,CD 

14150 PONE OD+1,OP 

14166 AD:0DF2 

14170 RETURN 

14188 IF 0P>65535 OR 0P(8 THEN PRINT " 
ERROR -OPERAND"¡RETURN 
14190 PONE OD.CD 
14280 82=IMT(OP/256) 

14210 B1=0P-(B2*256) 

14220 PONE ADU.Bl 
14236 PONE AD+2.B2 
14240 AD:AD*3 
14250 RETURN 

14260 IF (K$-"ORG ") OR CM$:"END ") 
OR (K$:"DC "> THEN GOTO 14280 

14270 PRINT "ERROR - PSUEDO-OP"¡STOP 
14280 IF M$:"ORG " THEN GOTO 14300 
14290 GOTO 14340 

14306 IF FO-1 THEN PRINT "ERROR - MULT 

IPLE 0R6"¡GOTO 14026 

14310 F0=1 

14320 AD:OP¡ZZ=OP 

14330 GOTO 14020 

14340 IF M$-"END " THEN GOTO 14366 

14350 GOTO 14480 

14360 EN=AD-1 

14378 RETURN 

14480 PONE AD,OP 

14510 AD=AD+1 

14520 GOTO 14020 

15800 K$-“ ..INPUT A$ 

15818 IF LEN(A$)<3 THEN PRINT "ERROR - 
LEH6TH":GOTO 15006 
15830 5=0¡FOR M=1 TO LENCAS) 

15040 U$:A$(H)¡IF U$:" " THEN S:M:K:LE 
N(A$) 

15850 NEXT M 

15060 IF 5=0 THEN 60T0 15108 

15878 FOR M=1 TO 5-l:U$=A$(M>¡H$(M):U$ 

¡NEXT M 

15072 IF 5:6 THEN GOTO 15880 

15074 FOR M=5 TO S:M$(M>:.NEXT M 

15080 V$:.V$:A$(5):0P:VAL(V$) 

15090 RETURN 
15160 5:LEN(A$)M 

15110 FOR K=1 TO 5-l¡U$:A$(M):M$(M):U$ 
¡NEXT M 

15120 IF 5:6 THEN 60TO 15098 

15130 FOR K:S TO 5:H$CHJ:" "¡NEXT M:GO 

TO 15090 

20000 GRAPHIC5 0 

20010 PRINT "NOMBRE PROGRAMA ";¡INPU 
T N$ 

20015 N2$:"C:":N2$(3):N$ 

28620 OPEN ttl,8,0,N2$ 

28030 PRINT ttl.ZZ 
20046 PRINT DI,EN 
28050 FOR AD=ZZ TO EN 
28866 DA:PEEN(AD) 

20070 PRINT ttl,DA 
20088 NEXT AD 
20096 CL05E ttl 
26180 RETURN 
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XF-551 


SISTEMA OPERATIVO POS XE 1.0 


MUNDO A TA /?/ tiene en este número una nove¬ 
dad para todos los usuarios de este nuevo Drive 
que se ven imposibilitados de accesar los 360 Kb: 
una copia del Sistema Operativo mencionado. 

El servicio durante los meses de marzo y abril 
se restringe a nuestros suscriptores vigentes o 
nuevos suscriptores. El valor es de $ 200, que cu¬ 
bre el valor del diskette. 


La cantidad de equipos XF-551 presentes en 
el mercado supera ya las 2.000 unidades, y por 
ende es imposible atender estas necesidades. Esa 
es la razón de nuestra atención preferencial a nues¬ 
tros suscriptores. 

Si usted no es suscriptor, puede acogerse a 
éste y otros servicios de MUNDOATARI. Hága¬ 
lo ahora que comienza el año escolar a un precio 
de $ 2.400 por 12 números. 


Ahora vamos al Sistema Operativo. 
Inserte el diskette en el Drive. 
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DISKETTE: continuación 


Este primer menú contempla las siguientes 
opciones: 

F : Acceso a archivos de menú 
M : Acceso a menú de lenguaje de máquina 
S : Menú de sistema de funciones 
E : Salida al BASIC. 

Veamos una breve explicación de los Ítems 
del Menú principal: 

La opción F permite operar en forma similar 
al menú del DOS 2.5 en cuanto a las funciones 
más importantes, como son: 

— protección 

— desprotección 

— renombrar 

— borrar 

La siguiente foto indica las posibilidades: 



La opción M permite manipular los archivos 
en lenguaje de máquina en una interesante posi¬ 
bilidad de opciones como indica el menú: 


TOOAVitases 


POS XE MACHINE LANOUAGE Access MENU 


JILO LXSTXNG 
IORKXNG OXRECTORY 


í¡r * 


axHARY me 

-~AD A BINARY EXLE CAO NOI RUN> 
HAVE MEMORY TO A 0IMARY fXLf 
¡EppENB MEMORY TO A OXNARY rXLE 
SlSPLAY Mlí MOR V 
Shange MEMORY 

lo TO « MACHINE LANCUAGC PROCRAM 


fectici ITEM OR +HAPE rOR MAIN MENU: 


La tercera opción S nos proporciona un se¬ 
gundo menú que es el más interesante para poder 
accesar los 360 Kb de la diskettera XF-551. 

Examinemos la opción con detalle: 

— Inicial izar un disco (formatear para compro¬ 
bar sus posibilidades reales). 

Al seleccionar esta opción aparece en pantalla 
un segundo menú 



Las opciones son: 

• AT 810: que corresponde al primer drive de 

ATARI, que formatea 720 sectores, compa¬ 
tibles DOS 2.0 y DOS 2.5 (simple densidad 
y un lado). 

• AT 1050: corresponde al segundo modelo de 

drive ATARI y que se conoce como de den¬ 
sidad expandida. Formatea 1040 secotres 
equivalentes a 128 Kb. 

• XF-551: nuevo drive ATARI que formatea a 

capacidad máxima de 360 Kb, doble lado y 
doble densidad. 

•SSDD: esta opción está disponible con la XF- 
551 y la 1050, que se le incorpora un nuevo 
chip de hardware. Los kilos de formateo 
son 180. 

' Al seleccionar la opción XF-551, nos pide in¬ 
dicar el número del drive y finalmente lo que he¬ 
mos esperado de ATARI por cerca de 15 meses 
de continuas preguntas sin respuestas de ATARI 
Corporation, que sólo demora segundos. 

Al examinar el directorio comprobamos la 
cantidad de kilos prometidos por el fabricante de 
este equipo y debemos conformarnos con la larga 
espera de inactividad en la potencia ofrecida por 
este drive. * 


Cabe destapar que algunas de ellas son una real 
innovación como: 


— agregar el contenido de la memoria a un 
archivo 

— desplegar en pantalla el contenido de la 
memoria. 

— modificar contenido de la memoria. 


Una vez más MUNDOATARI hace todos los 
esfuerzos para poder colocar al alcance de nuestros 
amigos de la familia atariana el software especí¬ 
fico y así resolver problemas que existen. 

Escríbanos acerca de estos nuevos servicios 
a nuestra casilla, para saber si este tipo de trabajo 
que requieren de un alto costo tienen un real uso 
por ustedes, amigos usuarios. • 
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En este primer mes de clases MUNDO A TARI pre¬ 
senta algunos programas educativos que deben ser¬ 
vir como punto de partida a la experimentación 
persona! y a la modificación según sus intereses. 


• EL GATO MATEMATICO 

Este juego sirve para competir con algún ami¬ 
go en relación a resolver operaciones aritméticas 
y efectuar mejores movidas. 


¿Cómo se juega? 

El computador pide la identificación de los 
2 jugadores. Luego presenta una pantalla llamada 
''GATO'' y pide a un jugador que elija un casillero 
disponible. Acto seguido aparece una operación 
de suma, resta, multiplicación o división que él 
debe resolver. 

Si la respuesta es correcta ocupará ese casi¬ 
llero, de lo contrario continuará vacante. 

El jugador que complete 3 casilleros en sen¬ 
tido horizontal, vertical o diagonal ganará la 
partida. 
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EDUCACION: continuación 


T0(2,2)=l AND GATO(3,1)-1) THEN 1586 
1495 FOR 1=1 TO 3:F0R J=1 TO 3:IF GATO 
(I,J)=2 THEN POP ,*P0P ¡GOTO 1499 
1497 NEXT J’.NEXT I:POP ‘.GOTO 1780 
1499 RETURN 

1508 REH ** HAS GANADO ## 

1518 IF INT(CO/2)OCO/2 THEN 1548 
1538 POSITION 2,21:? CHR$C156);JU62S;" 
,TU HAS GANADO!!!! ";:60T0 1680 
1540 POSITION 2,21:? CHR$(156)JJUGlS;" 
,TU HAS GANADO!!!! “ 

1688 REM ** JUEGAN DE NUEVO ## 


1610 FOR 1=1 TO 1000¡NEXT I 
1620 POSITION 2,21!? CHR$(156) } CHR$(15 
6);"DESEAN JUGAR DE NUEVO (S/N) ";:INP 
UT OP$ 

1638 IF 0P$="5" THEN 38 

1648 ? "S":POSITION 12,13:? "HASTA LUE 

60 !!!":END 

1708 REM #* EMPATARON ** 

1718 POSITION 2,21:? CHR$(156);CHR$(15 
6);JUGlS;",";JUG2$J" USTEDES HAN EMPAT 
ADO" 

1720 GOTO 1600 



• FALTA UNA LETRA 

Este juego permite evaluar la amplitud de su 
vocabulario y la rapidez de respuesta para dar 
sentido a una palabra. 

¿Cómo jugar? 

El computador pide su identificación. Luego 
presenta una palabra a la cual le falta una conso¬ 
nante o una vocal. 

Debe escribir esa letra para incrementar su 
puntaje. En caso de error el computador entrega 
la respuesta correcta y presentará la próxima pa¬ 
labra. 

Sugerencias 

Usted puede poner sonido a la pantalla e 
incrementar el puntaje a ganar por respuesta co¬ 


rrecta, modificando el número 2 en la línea 525. 

Para aumentar el banco de palabras modifique 
la línea 124. 


WWW 
A A A 


10 REM *** Irf.-H WÜMUI 
20 PM=8:MPM=8:GOSUB 10566 
38 DIM P$(28),INV$C20),RC$(1),R$(1),NO - 
M$(28),X(18)¡GRAPHICS 8 

32 REM *** DI5PLAY LIST *** 

33 DL=PEEK(560)+PEEK Í561)#256 

35 POKE DL+3,71:POKE DL+6,6:P0KE DL+17 


,32:P0KE DL+21,32 

48 ? "6":SETCOLOR 2,8,8:SETC0L0R 4,8,0 


¡POKE 752,0 
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EDUCACION: continuación 




5008 DATA l,POBACION,L,2,ESCELA,U,3,TE 

POSITION 5,18:? "CUAL ES TU NOMBRE i"}: 


LEISOR,V,4,CASTILO,L,5,DIAIO,R,6,0CINA 

INPUT N0M$ 


,C,7,CINTIFIC0,E,8,H0T0,R 

70 RE5T0RE 5800 


5018 DATA 9,NAIDAD,V,10,CAALLO,B,il,DI 

80 READ N,P$,RC$:INM$="" 


CO,S,12,PERO,R,13,SUERE,T,14,CALENARIO 

85 FOR 1=1 TO LEN(P$) 


,D,15,00,S,16,NOMRE,B 

86 INV$ <1,1)=CHR$(ASC CP$(I,I))*128) 


5828 DATA 17,TELA,C,18,DICI0NARI0,C,19 

87 NEXT I 


,BOA,T,28,BOTELA,L,21,NARANA,J,22,PROR 

98 IF N=-l THEN 1888 


AMA,G,23,SUEER,T,24,H0A,L 

95 ? "N":SETCOLOR 2,2,8:5ETC0L0R 4,1,7 


5830 DATA 25,AMAILL0,R,26,SOIDO,N,27,V 

¡SETCOLOR i,8,15:SETC0L0R 3,l,2:POKE 7 


0LUEN,M,28,BARA,R,29,CSA,A,38,MEL0DA,I 

52,1 


,31,TECO,H,32,SAOFON,X 

188 POSITION 2,0:? 1 11H1H1 iWTlffV 1 :P 


5040 DATA 33,DINRO,E,34,PAA50,Y,35,CIN 

OSITION 12,5:? "PREGUNTA No ";N 


,E,36,CALE,B,37,CMA,0,38,JUG0,E,39,BRI 

118 POSITION 6,8!? "TU PUNTAJE ";NQM$; 


L0,L,48,QUIBRE,E 

" es oe:";PM;" pts" 


5858 DATA 41,LAMPRA,A,42,MECAHC0,I,43, 

128 POSITION 13,12:? ">>";inv$j"<<" 


LOGICO,1,44,SASA,L,45,GITARRA,U,46,CON 

123 REM #* RUTINA DE FLASH ** 


TRASE,T,47,GAO,T,48,PIMENTft,I 

124 FOR 1=1 TO 5:PONE 755,8:K=1 A 1:P0KE 


5060 DATA 49,I6LES,N,50,CHA,O,“1,A,A 

755,2:K=1 A 1:NEXT I 


5678 END 

126 POSITION 13,12:? "»"JP$;"<<":P0KE 


7188 X ti)=85:X(2)=76:X(3)=72:X(4)=85:X 

752,8 


(5)=68:X(6)=85:X(7)=25:X(8)=25:X(9)=50 

138 POSITION 5,18:? "CUAL ES LA LETRA 


:XC18)=180 

QUE FALTA:"; ‘.INPUT R$ 


7198 FOR X=i TO 5-.S0UND 6,XÍX) ,12,18:F 

148 IF R$=RC$ THEN GQ5U8 580 


OR Y=1 TO XtX+5):NEXT Y 

158 IF R$ORC$ THEN GOSUB 680 


7288 FOR Y=18 TO 8 STEP -ÜSOUND 0,X(X 

168 GOTO 88 


),12,Y:NEXT Y:NEXT XiSOUND 8,0,0,0:RET 

508 ? "N":POKE 752,1 


URN 

518 POSITION 5,12:? "!!!!! CORRECTO 


10508 DIM MENS$(10) 

NOM$;" !!!!!" 


18518 GRAPHICS 1+16:SETCOLOR 2,8,0 

512 L=57:H=45:P=45:F0R F=1 TO 6:50UND 


10528 RESTORE 18688:FOR LüOP=i TO 3¡RE 

0,P,10,14!FOR 14=1 TO 581NEHT H 


AD C,MEN5$ 

513 P=L:L=H:H=P:NEXT FíSOUND 8,8,8,0 


10530 POKE 755,55:REM *** INVIERTE CAR 

525 PM=PM+2 


ACTERES *** 

538 RETURN 


10540 FOR 1=1 TO 20 

6O0 ? "N":POKE 752,1 


10558 POSITION C,IS? «6;MENSS 

610 POSITION 18,5:? "LO SIENTO ";NOM$ 


10560 POSITION C,I-l:? »6;" " 

615 POSITION 5,12:? "LA LETRA CORRECTA 


10578 FOR T=1 TO 15:NEXT T 

ERA LA ";RC$ 


10580 NEXT I 

617 GÜSU6 7100 


18590 POKE 755,2:REM ##* POS. NORMAL D 

630 RETURN 


E CARACTERES *** 

1880 ? "*":POKE 752,0 


18600 FOR 1=28 TO 1 STEP -1 

1002 IF PM>MPM THEN MPM=PM 


10610 POSITION C,I:? U6;MENS$ 

iwnrwjTTmTBrjníaíP exultado fjkal.éb 


18620 POSITION C,I+1¡? B6;" 

1020 POSITION 1,7:? NOK$:" TU PUNTAJE 


10630 FOR T=i TO 15:NEXT T 

FUE DE ";PM;" PT5 » 


10648 NEXT I 

1030 POSITION 1,9:? "EL MAXIMO PUNTAJE 


10650 POSITION C,l¡? »6;" 

OBTENIDO ES DE "JMPM;" PTS " 


10660 NEXT LOOP 

1046 POSITION 3,15!? "DESEA JUGAR DE N 


10678 RESTORE 18680:FOR 1=1 TO 3:READ 

UEVO i=SI/2=NO ¡INPUT A 


C,MENSS:POSITION C,18:? U6;MEN5S¡NEXT 

1850 IF A=1 THEN 70 


I:FQR T=1 TO 1080:NEXT T:RETURN 

1068 END 

. 

10688 DATA 1,FALTA,7,UNA,11,LETRA 
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EDUCACION: continuación 


Sugerencias 

Usted puede cambiar el color de la pantalla 
modificando la linea 310. 

Escriba una rutina de sonido en la línea 1120. 


18 REM #* GATO MATEMATICO ** 

20 DIM JU61$(15),JUG2SC15),M(9,3),0P$( 
1),GATO(3,3),AUX(9),CEROS(47),CRUZ?(47 
) 


22 CERO$=" 

XXX 

********** 


XXX 

II 

24 CRUZ$=" 

X X 

********** 


X X 

M 

25 FOR 1=1 

TO 47 



THEN CEROSÍI,I)=C 
THEN CRUZ$(I,I)=C 


26 IF CEROS(1,1)="K" 

HR$(160) 

27 IF CRUZ$(I,I)="X" 

HR$(160) 

28 NEXT I t 

30 FOR 1=1 TO 3;F0R J=i TO 3:GAT0(I,J) 
=2:NEXT J:NEXT I:GOSUB 300:REM *# VARI 
ABLES DE PUNTAJE EN 8 
40 GOSUB 2O0:GO5UB 400:FOR 1=1 TO 9:AU 
X(I)=0:NEXT IíGOTO 508 
288 ? "N":POSITION 10,1:? 

S iiM " 


GATO MATE 


210 FOR 1=3 TO 19 

220 IF 1=8 OR 1=14 THEN FOR L=4 TO 34: 
P05ITI0N L,ls? CHRS(160):NEXT LíGOTO 2 

48 

238 POSITION 12,1!? CHR$(160)J" 

"jCHRS(160) 

240 NEXT I 

250 POSITION 7,5:? "imU4«-44U4U<7" 
260 POSITION 18,5:? "2UUU*54U444*8 


II 

278 POSITION 29,5:? 


3 » 

ttl";: 


280 RETURN 

380 REM ** INGRESA NOMBRE JUGADORES #* 
318 ? "V:SETCOLOR 1,0,1:5ETCOLOR 4,8, 
6:SETCOLOR 2,8,18 
328 position 12,5:? "EOTHaHI 
330 POSITION 5,18¡? "NOMBRE JUG, 

INPUT JUGiS 

340 POSITION 5,15:? "NOMBRE JUG. U2";: 
INPUT JUG2S 
356 RETURN 

400 REM #* ASIGNA PROBL. A CASILLAS ** 

485 FOR 1=1 TO 9 

418 A=INT(RND(8)*10)+1 


426 B=INT(RND(0)#10)+1 
438 C=INT(RND(8)#4)+1 
448 M(I,1)=A:M(I,2)=B:M(I,3)=C 
450 NEXT I:RETURN 

506 REM *** PROGRAMA PRINCIPAL *** 

510 CO=0 

528 C0=C0*1:IF INT(CO/2)O CO/2 THEN 54 
0 

538 POSITION 2,21:? CHRS(156);JUG2S;" 
QUE POSICION QUIERES ";:INPUT PO:IF AU 
X(PÜ)=3 THEN 530 
535 GOTO 558 

540 POSITION 2,21:? CHRS(156); JUGiS,*" 
QUE POSICION QUIERES -.INPUT PO:IF AU 
X(PO)=3 THEN 548 

558 ON PO GOTO 600,650,700,756,808,850 

,900,958,1000 

600 REM *# CASILLA UNO ## 

685 GOSUB i05O:X=i;Y=l 

610 POSITION 4,5:? MU,i)j" "jOPS)" »} 

Mil,2) 

620 GOSUB 1106:GOTO 528 
65B REM ** CASILLA DQ5 ** 

655 GOSUB 1050:X=1:Y=2 

668 POSITION 14,5;? M(2,i);" "jOPS;" " 

JM(2,2) 

676 GOSUB 1100.-GOTO 528 
780 REM #« CASILLA TRES *# 

785 GOSUB 1050:X=1:Y=3 

710 POSITION 26,5:? M<3,1);' ! ";OP$j" « 

;M(3,2) 

728 GOSUB 1106¡GOTO 526 
758 REM #* CASILLA CUATRO ** 

755 GOSUB 105O:X=2:Y=1 / 

760 POSITION 4,11:? M(4,l)*';0P$;" '■ 
;MÍ4,2) 

770 GOSUB 1100¡GOTO 520 
888 REM ** CASILLA CINCO ** 

885 GOSUB 10S0;X=2:Y=2 

818 POSITION 14,11:? M(5, i) ; 11 ";0P$;" 

";M(5,2) 

828 GOSUB 1160¡GOTO 526 
858 REM *# CASILLA SEIS ** 

855 GOSUB 1050:X=2:Y=3 

860 POSITION 26,11:? M(6,l);" ";0P$;" 

";MÍ6,2) 

878 GOSUB 1180 i GOTO 526 
980 REM ** CASILLA SIETE ** 

985 GOSUB 1050:X=3:Y=i 

916 POSITION 4,17:? M(7,l){" "íQP$;" " 

;MC7,2) 
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EDUCACION: continuación 


920 GOSUB 1180¡GOTO 528 
958 REM ** CASILLA OCHO ** 

955 GOSUB 1850:X=3¡V=2 

968 P0SITI0M 14,17:? M£8,l);" ";0P$j" 

";M(8,2) 

970 GOSUB 1100¡GOTO 528 
1008 REH ** CASILLA NUEVE ** 

1805 GOSUB 1050:X=3:Y=3 
1010 POSITIOM 26,17:? M(9,1)j" ";OP$;" 
"J MÍ9,2) 

1028 GOSUB 1180¡GOTO 528 

1058 REM ** ASIGNA OPERACIONES #* 

1860 ON M(PO,3) GOTO 1070,1075,1080,10 
85 

1870 RC^MíPO, 1) +MCPO,2) :OP$="*"IRETURN 

1075 RC-MÍPO,1)-MCPO,2):OP$="-":RETURN 

1088 RC=M(PO,l)/M(PG,2):RC=RC*10:RC=IN 

T(RC):RC-RC/10:0P$=":":RETURN 

1885 Re=M(PÜ,i)*H(PG,2):OP$="X":RETURN 

1899 REM #* RECIBE LAS RESPUESTAS #* 
1108 POSITION 2,21:? " 

n 

1181 IF INT(CO/2)<>C0/2 THEN 1185 

1103 POSITION 2,21:? JUG2$J" EL RESULT 

ADO ES :INPUT RESP:GOTO 1110 

1185 POSITION 2,21:? JUG1$;“ EL RESULT 

ADO ES ¡INPUT RESP 

1118 IF RE5P=RC THEN AUX(P0)=3:G0T0 12 

O0 

1128 REM ** SONIDO ? *# 

1130 GOTO 1130+PO 


1131 

POSITION 

4,5:? *' 

1 " 

¡RETURN 

1132 

POSITION 

13,5:? 11 

2 

":RETU 

RN 

1133 

POSITION 

25,5:? " 

3 

"I RETUR 

N 

1134 

POSITION 

4,11:? '* 

4 

"¡RETURN 

1135 

POSITION 

13,11:? " 

5 

":RET 

URN 

1136 

POSITION 

25,11:? " 

6 

"¡RETU 

RN 

1137 

POSITION 

4,17:? '• 

7 

":RETURN 

1138 

POSITION 

13,17:? " 

8 

": RET 

URN 

1139 

POSITION 

25,17;? " 

9 

"’.RETU 


RN 



1208 REM ** IMPRIME CRUZ O CERO ** 


1202 IF PQ-1 OR P0=2 OR PO=3 THEN F=4 

1203 IF P0=4 OR P0=5 OR P0=6 THEN F=10 

1204 IF P0=7 OR PO=8 OR P0=9 THEN F=16 

1205 IF PO=l OR PG=4 OR P0=7 THEN C=3 

1206 IF PO-2 OR P0=5 OR P0=8 THEN C=13 

1287 IF P0=3 OR P0=6 OR P0=9 THEN C=25 

1210 IF INT ÍCG/2) O CO/2 THEN 1380 

1220 POSITION C,F:? CERO$ 

1238 6AT0(X,Y)-8 
1248 GOTO 1480 
1388 POSITION C,F:? CRUZS 
1310 GATO(X,Y)=l 

1488 REM *# HAY UN GANADOR SI O NO « 
1418 IF (GATOíi,l)=0 AND GAT0C1,2)=8 A 
ND 6ATÜ(i,3)-8) OR (GATO(l,i)=l AND GA 
70(1,2)=! AND 6AT0(1,3)=1) THEN 1580 
1428 IF (GATO (2 , 15 =0 AND GATO(2,2)=0 A 
ND GAT0(2,3)-O) OR (6ATQ£2,l)=i AND GA 
TO(2,2)=1 AND GAT0(2,3)=i) THEN 1580 
1438 IF (GATO(3,i)=0 AND GATO(3,2)=0 A 
ND GATO(3,3)=0) OR (GAT0(3,1)=1 AND GA 
TO(3,2)=1 AND GATÜ(3,3)=1) THEN 1508 
1440 IF (6ATO(1,1)=0 AND GATO(2,1)=8 A 
ND GATO(3,1)=8) OR CGATO(l,l)=l AND GA 
T0(2,1)=1 AND GATO(3,1)=1) THEN 1580 
1458 IF (6AT0(1,2)=8 AND GATO(2,2)=0 A 
ND GATO(3,2)=0) OR (GAT0(1,2)=1 AND GA 
T0(2,2)=l AND GAT0(3,2>=1) THEN 1586 
1460 IF (GATO(1,3)=0 AND GATO(2,3)=0 A 
ND GATO (3,3)=0) OR (6ATO(1,3)=1 AND GA 
T0(2,3)=l AND GATO£3,3)=1) THEN 1580 
1465 REM ** ESTAN EN DIAGONAL *# 

1478 IF (GATO(1,1)=0 AND GATO(2,2)=0 A 
ND GATO(3,3)=0) OR (GATO(l,l)=l AND GA 
T0(2,2)=i AND GAT0(3,3)=1> THEN 1580 
1488 IF (GAT0(i,3)=8 AND GATO(2,2)=0 A 
ND GATO(3,1)=0) OR (GAT0(1,3)=1 AND GA 
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EDUCACION: continuación 


• SUMA Y DIFERENCIA 

Este juego perrr.'te crear un método para en¬ 
contrar 2 números desconocidos, que el computa¬ 
dor selecciona en un rango cada vez mayor, cada 
vez que ingrese una respuesta correcta. 

¿Cómo se juega? 

El computador anuncia que ha elegido un nú¬ 
mero entre 1 y 20, luego da la suma y la diferencia 
entre ellos. Acto seguido pide que ingrese los dos 
números desconocidos por separado. 

Si la respuesta es correcta recibirá un mensaje 
y un premio en puntaje. La dificultad para el pró¬ 
ximo problema aumentará en el rango de 5. 

Si la respuesta es incorrecta el computador la 
corregirá y pasará a la siguiente hasta completar 
20. Al final evalúa el puntaje total y el récord al¬ 
canzado. 


1 REM ** ** 

5 DIN D$(38):GOSUB 5606:GRAPHICS 0 
20 PM=0 

30 PU=8:HX=20:H=i 

40 ? "X":SETC0L0R 2,1,6:SETC0L0R 1,0,1 
:SETC0L0R 4,13,14:POXE 752,0 
50 POSITION 9,1:? =43** ?': 

P05ITI0H 2,4:? "PREGUNTA No "jN:P0SITI 
0N 2,6:? "TU PUNTUACION ES DE:";PU 
52 IF PU>=PM THEN PM-PU 
55 P05ITI0N 2,8:? "PUNTUACION MAXIMA:" 
JPM 

66 R1=INT(RNDC0)«MX) 

70 R2-INT(RHD(0)*MX) 

71 IF Ri=R2 THEN 66 

88 IF R2>R1 THEN RR=R1:R1-R2:R2-RR 
90 P0SITI0N 2,10:? "TENGO 2 NUMEROS EN 
TRE 1 Y ";MX 

160 POSITION 2,11:? "LA SUMA DE LOS DO 

5 HUMEROS ES "JR1+R2 

118 POSITION 2,12¡? "LA DIFERENCIA DE 

LOS DOS NUMEROS ES ";R1-R2 

120 POSITION 2,14:? "CUALES SON ESTOS 

NUMEROS?":? 

f;:iN 


INGRESA EL PRIMER NUMERO 


NGRE56 EL SEGUNDO NUMERO 


138 ? 

PUT NI 

132 ? 

135 ? "íj 

NPUT N2 

140 IF NlON2 AND 
(N2=R1 OR N2-R2) 

:IF N<=20 THEN 48:GOTO 220 
156 GOSUB 1009 


";;I 


CN1-R1 OR N1-R2) AND 
THEN GOSUB 580:N=N+i 


160 POSITION 2,19:? "LOS DOS NUMEROS E 

RAN:";Ri;" Y ";R2 

170 ? Rij" * "JR2J" = ",‘R1+R2 

190 ? Rij" - ";R2;“ = "JR1-R2 

205 FOR T=1 TO 100O:NEXT T 

215 N=N+1:IF N<=20 THEN 40 

228 ? "N":P0SITI0N 14,4:? "aSUSEGEB" 

230 POSITION 5,8:? "HAS OBTENIDO ";PU; 

" PUNTOS" 

248 ? 

250 IF PU>PM THEN PK=PU 

255 POSITION 5,18:? "NUEVA PUNTUACION 

MAXIMA:";PM 

268 POSITION 5,15:? "OTRA PARTIDA 1=51 
/ 2=M0";:INPUT A 
278 IF A=1 THEN 30 
286 END 

500 ? "*"¿P0KE 752,1 

581 H=INT(RND(8)#5>+4:H=H+588 

582 GOSUB H 

503 POSITION 6,10:? D$:G010 509 

584 D$="MUY BIEN,SIGUE ASI!!!!":RETURK 

505 D$="ESTUPENDO,LQ LOGRASTE!!!!":RET 
URN 

586 D$="ESTAS MUY BIEN!!M":RETURN 

587 D$="EXCELENTE AMIGO! !!!"’.RETURN 

588 D$="CONTINUA ASI!!!!":RETURN 

589 L0W=57:HIGH=45:P=45 

310 FOR A=i TO 6:SOUND 0,P,18,14:FOR M 

=1 TO 188:NEXT W:P=LOW:LOW=rtIGH:HIGH=P 

:NEXT A:SOUND 8,8,0,0 

528 PU=PU+16 

525 MX=MX+5 

560 RETURN 

1008 RESTORE 2088:FOR X=1 TO 5:READ A, 

B:SOUND 8,A,12,18:F0R Y=1 TO B:NEXT Y 

1018 FOR Y=18 TO 0 STEP -1:SOUND 0,A,1 

2,Y:NEXT Y:NEXT X:RETURN 

2880 DATA 85,85,76,25,72,25,02,50,60,1 

60 

5800 REM #* PRIMERA PANTALLA *# 

5010 GRAPHICS 17:P05ITI0N 2,?:P0KE 788 
,148 

5820 ? tt6;"SÜMA Y DIFERENCIA":POXE 712 

,148:FOR T=1 TO 186:NEXT T 

5025 FOR LG0P=i TO 5 

5838 FOR 1=8 TO 18 STEP 8.5:P0KE 788,1 

48+1:FOR W=I*4 TO 1*2 STEP -1;SOUND 8, 

W,18,I:NEXT M.NEXT I:SOUND O,8,0,0 

5850 NEXT LOOP 

5666 FOR T=1 TO 1880:NEXT T:RETURN • 
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The First XLEnt 



SEGUNDA PARTE 


6. USANDO EL BUFFER 

El CUT/Buffer es una parte de la memoria 
que almacena una pantalla de texto de 800 carac¬ 
teres como memoria temporal cuando parte del 
texto se mueve de un lugar a otro. 

Esta operación puede ser también para dupli¬ 
car este texto. 

La fución COPY permite copiar una sección 
del texto hacia el buffer CUT/PASTE. 

Para seleccionar la función Copy presione la 


tecla ESC, mueva el cursor hacia el icono COPY 
(cámara) y presione RETURN. La siguiente ope¬ 
ración es mover el cursor al punto de partida del 
texto que copiara hacia el buffer, luego presione 
la tecla RETURN. 

Usted observará que luego de presionar RE¬ 
TURN el punto inicial marcado se encuentra en 
el lugar inicial superior de la pantalla. Se puede 
copiar un máximo de 20 lineas de texto. Esta re- 
orientación determina el límite de traspaso hacia 
el buffer. Mueva ahora el cursor al punto final del 
texto a copiar y presione RETURN. 

Seleccione el texto para cortar en la misma 
forma que en la función COPY. 


MARZO 1989 


33 



































PROGRAMAS: continuación 


La función PASTE inserta texto desde el buf- 
fer CUT/PASTE hacia el documento. Después de 
seleccionar el icono PASTE (botella) debe ingre¬ 
sar el cursor hacia la posición 'inicial del texto a 
insertar. Presione RETURN y el texto se ingresa 
en el documento. 

El contenido del buffer permanece constante 
hasta el uso de la próxima función, de tal modo 
que puede ingresar el texto las veces que desee 
en el documento. 

Con las 3 funciones descritas usted puede: 

- duplicar texto usando COPY & PASTE 

- mover texto usando CUT & PASTE 

- borrar texto usando CUT con la posibilidad de 
accesar usando PASSTE. 

Las 3 funciones pueden utilizarse con el joy- 
stick. 

Otras funciones que pertenecen al CUT/ 
PASTE Buffer es el EDITOR de buffer: 

- SHFT/CTRL/T ingresa el editor de buffer 

- SHFT/CTRL/U pasa del menú de selección 
del (cono hacia el menú de utilitarios de disco. 

7. MANIPULACION DE MEMORIA 

Existen una serie de comandos para manipu¬ 
lar la memoria: 

- SHFT/CTRL/F: despliega la memoria dispo¬ 
nible en caracteres. 

- SHFT/CTRL/?: despliega el número de sec¬ 
tores (125 por sector), que se requieren para 
salvar el archivo en memoria hacia el diskette. 

- SHFT/CTRL/N: cuenta el número de pala¬ 
bras en el documento editado. 

8. EDITAR UN DOCUMENTO DE GRAN 
EXTENSION 

Al editar un documento original que es de 
gran volumen, las modificaciones de caracteres 
resultan más lentas que lo normal. 

- SHFT/DEL: borra un grupo de caracteres. 
Usando el modo INSERT para insertar un gru¬ 
po de palabras es lento. Con el modo TYPEOVER 
y las teclas SHFT/CTRL/INS es más ágil. 

- SHFT/CTRL/INS: abre 6 líneas en blanco. 
Digite el nuevo texto en esta área de líneas 
abiertas. Presione las teclas SHFT/CTRL/INS 
si requiere de mayor espacio de líneas. 

- SHFT/CTRL/DEL: borra todo el espacio de 
texto entre el cursor y el siguiente párrafo. 

9. VENTANAS DE TEXTO 

Una ventana de texto es un área de memoria 
donde el texto puede ser editado y mantenerse 
separado en otras ventanas de texto. 

En este sentido el buffer CUT/PASTE es una 


ventana de texto que puede editar texto sin alterar 
el contenido del principal. También puede dividir 
el contenido de la ventana en 2 de menor tamaño. 
El propósito es editar dos documentos separados 
al mismo tiempo. 

EL CUT/PASTE Buffer puede superponerse 
entre 2 ventanas de texto para modificaciones en¬ 
tre ellos. 

- CTRL/SHFT/2: crea ventanas en textos dual. 
Estas teclas dividen la memoria en dos venta¬ 
nas separadas. Es posible que el documento en 
la ventana principal sea demasiado largo y 
pueda ser truncado. En este caso debe confir¬ 
mar que creará una segunda ventana. 

Si requiere que su documento no se corte digi¬ 
te N. Si el documento es pequeño entonces se 
crea automáticamente la segunda ventana y 
aparece un mensaje en la parte inferior de la 
ventana que informa de la edición en la venta¬ 
na número 2. 

- CTRL/SHFT/1: mueve a ventana 1. 

- CTRL/SHFT/2: mueve a ventana 2. 

- CTRL/SHFT/3 : cierra la segunda ventana y 
retorna a la ventana de texto principal. 


10. NOTAS ACERCA DEL EDITOR 

Cuando ejecuta una función que requier mo¬ 
ver el cursor para seleccionar los puntos iniciales y 
finales no necesita presionar la tecla CTRL para 
producir el desplazamiento que indica la flecha. 


11. BUSQUEDA 

La función de búsqueda permite buscar en el 
texto por determinadas secuencias de caracteres. 
Usando REPLACE (reemplazo) usted puede reem¬ 
plazar el texto por el nuevo que indique. 

También es posible la búsqueda para borrar. 

Antes de seleccionar el icono de búsqueda el 
cursor debe ubicarse en la posición del texto en 
que inicie la búsqueda. Si usted desea buscar en el 
documento completo presione START 2 veces pa¬ 
ra ubicar el cursor al comienzo del texto, luego 
presione la tecla ESC y seleccione el tipo de bús¬ 
queda. Luego verá el mensaje SEARCH FOR: y 
una línea que finaliza con el símbolo RETURN. 
Esté símbolo indica la capacidad máxima para 
colocar caracteres en la búsqueda. 

Luego de aparecer el mensaje:: REPLACE 
FOR: usted puede presionar RETURN si no de¬ 
sea reemplazar. En caso contrario digite el texto 
con la misma extensión en línea de carácter que 
el mensaje de búsqueda (SEARCH). 

Para usar la función SEARCH y DELETE 
(búsqueda y borrar) presione las teclas CTRL/DEL 
en el momento del mensaje REPLACE FOR: 
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12. UTILITARIOS DE DISCO. 

Esta opción permite cargar y salvar archivos 
de texto y el acceso a otras funciones de disco. 
Luego de seleccionar esta función un menú espe¬ 
cial se despliega con 6 opciones diferentes: 

— DIR: Directorio del diskette con 40 nombres 
de archivo como máximo. 

— LOAD: Carga un archivo de texto que permi¬ 
te determinar el tipo de carga en otro subme¬ 
nú con 3 posibilidades: 

NORMAL borra el archivo de memoria y car¬ 
ga el que designa. 

APPEND mantiene el archivo de memoria y 
el nuevo se agrega a continuación. 

INSERT mantiene el archivo presente en la 
memoria e inserta el nuevo en el punto que 
se desee. Para ello debe definir el nombre y 
la ubicación en que se carga, mediante el 
cursor. 

— SAVE salva un archivo desde la memoria del 

computador hacia el diskette. En la selec¬ 
ción determina si desea salvar completo el 
documento. En caso contrario debe despla¬ 
zar el cursor hacia la parte inicial en que se 
salva el archivo, como también su final. 


En ambos casos la etapa a continuación es 
determinar el nombre que tendrá este archi¬ 
vo salvado. 

— DELETE borra un archivo del directorio del 

disco. 

— FORMAT formatea un diskette para jniciar 

la incorporación de textos. 

— SPOOL este término se refiere a la conexión 

de 2 periféricos que no requieren usar la 
memoria como buffer. 

Corresponde a la unidad de disco y la pan¬ 
talla. Esto significa que puede desplegar el 
contenido de un archivo de texto en la pan¬ 
talla sin modificar el archivo presente en la 
memoria. Esto permite visualizar el archivo 
antes de limpiar la memoria al cargar. 

Al seleccionar esta opción se pregunta por 
el nombre del archivo a SPOOL. El archivo 
es desplegado por pantalla. Al presionar 
quier tecla se pasa a la siguiente pantalla y 
con ESC a la opción del menú de disco. Al 
llegar a la última pantalla aparece el mensa¬ 
je: PRESS KEY/BUTTON TO RETURN. 

— CTRL/D salida al DOS(Sistema Operativo). 

Se puede salir desde el menú de disco 
utilitario presionando las teclas mencio¬ 
nadas. 


D> 
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13. INTRODUCCION AL FORMATEO DE 
TEXTOS 

Este programa imprime el documento e inter¬ 
preta el formato de las líneas superiores y los ca¬ 
racteres especiales insertados en el documento. 

En la versión XL/XE hay 2 líneas superiores 
en la pantalla que controlan la prevista de 80 co¬ 
lumnas. 

— ESCAPE: regresa al editor de textos. 

— Cuando la impresora se inicia, se puede produ¬ 
cir una pausa al presionar cualquier tecla y 
continuar la impresión con la barra espada¬ 
dora. 

— SPC barra: continúa la impresión. 

— RETURN: retorna hacia la entrada del forma- 
teador de textos. 

— ESC: retorna hacia el editor. 


14. COLOCAR PAPEL EN LA IMPRESORA 

First XLENT usa un método diferente para el 
ingreso del papel y alineación del mismo. 


15. DIRECTIVAS DE FORMATEO 

Es una secuencia de caracteres ingresados co¬ 
mo parte del documento. Instruyen al formatea- 
dor de texto por la forma de prepararlo para la 
impresión. 

16. MARGEN 

— Im (márgen izquierdo): Con esta directiva se 
cambia el margen izquierdo a cualquier lugar 
del documento. El margen inicial es 10. 

Im + n: cambia el margen izquierdo en n es¬ 
pacios a la derecha. 

Im — n: cambia el margen izquierdo en n es¬ 
pacios a la izquierda. 

— rm (margen derecho): Con esta directiva se 
cambia el margen derecho. 

— mr: Esta directiva permite desplazar la prime¬ 
ra línea del próximo párrafo. 

— ai: Indentación automática, similar al margen, 
excepto que se procede en forma similar en 
todos los párrafos siguientes. 


17. ESPACIO VERTICAL Y PAGINACION 

En orden a que su documento se imprima en 
forma correcta debe recibir la información acerca 
del tamaño de papel que usa: 

— pp: longitud física de la página. Al usar el for¬ 
mato normal de 8,5” x 11" no requiere indi¬ 
caciones, equivale a 66 líneas por página. Al 
usar 8,5” x 14” la directiva es pp 84. 


- Ip: longitud lógica por página. Indica el nú¬ 
mero de líneas a imprimir por página, descon¬ 
tando el número de líneas superiores e infe¬ 
riores. El valor inicial es de 54, que equivale 
a 6 líneas en blanco arriba y 6 lineasen blan¬ 
co abajo. 

— fp: va hacia una nueva página. 

— fpn: nueva página condicional después de im¬ 
primir n líneas. 

18. ESPACIOS 

Espacio simple es el valor inicial al imprimir 

un documento, usando la directiva sp. 

- In: líneas de retroceso del carro para volver a 
imprimir en la parte superior. 


19. ALINEAMIENTOS 

Para centrar textos entre los márgenes dere¬ 
cho e izquierdo : 

— cm 1: activa la operación de centrar 

— cm 0: desactiva dicha operación. 


El mismo efecto se obtiene con las teclas: 

- OPTION/C en versión XL y XE 

— CTR L/C en versión 400 y 800 
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La acción de este juego sucede 
en una lejana galaxia en un tiem¬ 
po desconocido. 

Tu misión consiste en manejar 
la super nave de asalto galáctica: 
ZAXXON para penetrar en la 
fortaleza enemiga y destruir trin¬ 
cheras, naves y tanques de com¬ 
bustible'hasta llegar al androide 
gigante y eliminarlo en una ac¬ 
ción relámpago. 

El juego es la primera versión 
de una apasionante aventura es¬ 
pacial. 

En la primera etapa debes ha¬ 
cer vuelos rasantes para destruir 


lo que encuentres a tu paso. Los 
tanques de combustible te darán 
combustible extra para conti¬ 
nuar la misión. 

Una vez afuera te enfrentarás 
a un ataque masivo de naves si¬ 
milares a la tuya, pero con me¬ 
nor poder de fuego. Debes des¬ 
truirlas o practicar una evasión 
en caso extremo. 

• A continuación ingresas a una 
segunda fortaleza en la que el 
principal obstáculo son unas ba¬ 
rreras magnéticas, capaces de 
desintegrar tu nave al solo tocar¬ 
las. Para evadirlas debes estar 


atento al altímetro como forma 
de ubicarte a la altura correcta 
para cada barrera. 

Finalmente te enfrentarás con 
el robot androide, que cuenta 
con 2 misiles termodirigidos. 
Para destruirlo debes colocarte 
a su altura y disparar incesante¬ 
mente en dirección a un disco 
negro que lleva bajo el brazo. 

Al terminar tu misión ingresas 
automáticamente en otra forta¬ 
leza que presenta mayores difi¬ 
cultades. 

Te deseamos suerte en la 
misión galáctica. 
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Karateca 


Un malvado samurai ha toma¬ 
do prisionera a la princesa lleván¬ 
dola prisionera a su isla-fortaleza 
donde están reunidos sus peligro¬ 
sos súbditos. 

¿Está todo perdido para la 
hermosa princesita? ¿Será el 
destino de esta criatura conver¬ 
tirse en la esposa del malvado y 
siniestro samurai? . 

La respuesta es un rotundo 
NO, ya que la princesa no está 
sola en el mundo. Ella cuenta 
con su amigo karateca, hombre 
experto en el dominio de las ar¬ 
tes rharciales. 

El karateca sin más ayuda que 
sus puños y pies emprenderá el 
camino a través de la isla para 
salvar a su querida amiga la prin¬ 
cesa cautiva. 

Al momento de llegar a la isla 
es recibido por un grupo de lu¬ 
chadores que tratarán de impedir 
su avance. Tú deberás continuar 
tenazmente tu camino hasta al¬ 
canzar tu objetivo: enfrentar al 
samurai y vencerlo con tus pro¬ 
pias manos. 

Esto es en resumen la única 
forma de rescatar la princesa. 

Para la misión cuentas con 
una sola vida. Por cada golpe que 
reciba el karateca se irá disminu¬ 
yendo la energía, que en panta¬ 
lla puedes visualizar con una se¬ 
rie de triángulos. 


La clave del éxito es el movi- última esperanza de la princesa 
miento rápido y los gol pes sor- para lograr su libertad, 
presivos. Recuerda que eres la Suerte. 
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QIX 

El objetivo del juego es encerrar 
al personaje del título, llenando en a 
lo menos el 75°/o de la pantalla con 
rectángulos de color. Estos son he- 
hechos a su vez mediante líneas lla¬ 
madas "Stix", que tú haces con tu 
marcador, ya sea veloz o lentamente. 

Dibuja cuantos rectángulos quie¬ 
ras, pero ten cuidado de no ser alcan¬ 
zado por los "QIX" que son una 
constante amanaza por sus imprede¬ 


cibles vuelos. Si tocan tus líneas an¬ 
tes de completar tu rectángulo serás 
destruido.Ten cuidado igualmente de 
los "SPARX", 2 seres que te perse¬ 
guirán todo el tiempo mientras estés 
jugando, y también de los "FUSE" 
que aparecen en el momento en que 
tú dejas de dibujar. La única forma 
de evitarlo es moviéndote constante¬ 
mente. 

Nunca podrás jugar dos veces el 
mismo juego, por la cantidad de va¬ 
riaciones que se dan. 


HERO 

Tú equipo es un sistema de vuelo 
independiente y unipersonal. 

Deberás penetrar en las peligrosas 
cavernas subterráneas en busca de pri¬ 
sioneras, sorteando todo tipo de obs¬ 
táculos naturales o artificiales. 

Puedes usar cargas explosivas para 
abrirte paso, pero observa el nivel de 
energía y el número de cargas dispo¬ 
nibles. Este consejo es importante 
si quieres concluir con éxito tu difícil 
misión. 


MONTEZUMA 

Pedro es el personaje que baja por 
los laberintos de la pirámide en busca 
de tesoros. 

El juego consta de 9 niveles de di¬ 
ficultad y cada fase está formada por 
varias pantallas unidas entre si. 

Puedes usar una espada para de¬ 
fenderte de varios seres que te persi¬ 
guen, o bien una energía que te hace 
inmune a cualquier daño por pocos 
segundos. 

En cada laberinto debes abrir 
puertas de distintos colores para po¬ 
der avanzar. Para ello defres portar la 
llave correspondiente. 

El objetivo del juego es tratar de 
salir de la pirámide llevando las joyas 
que se encuentran a tu alrededor. 
El diamante te dará el mayor puntaje. 
Por cada 10.000 puntos tendrás una 
vida extra. 
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Nuevos programas 


MUNDOATARI continúa pre¬ 
sentando este mes nuevos pro¬ 
gramas que aparecen en el mer¬ 
cado norteamericano. Algunos 
de ellos ya se encuentran en la 
biblioteca permanente de nues¬ 
tra editorial y se incorporarán 
próximamente al Catálogo de 
la revista. 


PRINT POWER 

Este es un nuevo programa 
para impresora que contiene 
cuadros, formatos horizontales y 
tarjetas. 

Viene en 2 discos, uno con el 
programa y otro que contiene 
los bordes, tipos de letras y grá¬ 
ficos (iconos). 

Se puede ejecutar con todos 
los DOS, incluyendo el Sparta 
DOS en versión cartridge. 

Contiene 40 tipos diferentes 
de bordes que se seleccionan a 
través de un menú en el cual fi¬ 
guran los nombres. 

Hay 60 diferentes dibujos en 
5 tamaños , 6 tipos de letras que 
incluyen sans serif y gótica. 

Soporta una serie de impreso¬ 
ras e incluye un Kit de definí-, 
ción de Printer Drivers. 




SYNFILE + Utilities 

SFP es un grupo de progra¬ 
mas utilitarios para usuarios del 
SYNFILE +. 

Agrega un grupo de funciones 
tales como: 

— Imprimir, escribir en un archi¬ 
vo o desplegar en la pantalla 
la estructura de campos de un 
archivo de datos de SYNFI¬ 
LE +. 

— Cambiar verdadero /falso por 
ítem condicionales. 

— Alterar los valores asociados 
con números de registros y 
contar campos. 

— Recuperar archivos borrados. 

— Cambiar de justificación de 
cualquier ítem de DATA. 

— Crear, salvar y producir repor¬ 
tes en formato lista o etique¬ 
tas. 

SFD requiere de 48 Kb con el 
ATARI BASIC y su precio es 
de US $ 19,95. 


LIGHTSPEED 

Este popular lenguaje de pro¬ 
gramación anuncia el cambio de 
dirección de compra para el len¬ 
guaje C, que es una excepcional 
alternativa para programar en 
lenguaje de máquina para los 
computadores de 8 bits. 

Su precio es de US $ 39,95. 

Otro producto de la misma 
casa de software para ATARI 
de 8 bits es el AL/65 Develop- 
ment System, un linker con 
Assembler. 

También está DISKIO, un 
paquete utilitario para la Unidad 
de Disco, que tiene el mismo 
precio del anterior. 

Si usted tiene interés por este 
software escriba a nuestro correo 
pidiendo mayor información o 
dirección de recurrencia de ellos. 
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